#!/usr/bin/perl 

print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>Jotain</TITLE></HEAD><body>";
foreach $env_var (keys %ENV) {
    print "<BR>$env_var on $ENV{$env_var}";
}
print "<br>se ref on: $ENV{'HTTP_REFERER'}";
#print "<br>se ref on: $ENV{'REMOTE_ADDR'}";
#rint "<br>se ref on: $ENV{'REMOTE_HOST'}";

print "<br>se ref on:  $ENV{HTTP_REFERRER}";
print "<a href=\"http://www.tubenet.org.uk/cgi/envtarkistus.pl\">linkki</A>";

my $referer=$ENV{'HTTP_REFERER'};


print "$referer<br>";



print "</body></HTML>";

