#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "<p>The local time on this server is: <b>",
scalar localtime,"</b> (mountain time).\n";
my $ip_num = pack("C4", split(/\./, $ENV{REMOTE_ADDR}));
my $remhost = scalar gethostbyaddr($ip_num, 2);
print "<p>You are connected from <b>$ENV{REMOTE_ADDR}</b>";
if ($remhost && $remhost ne $ENV{REMOTE_ADDR}) {
    print " which resolves to hostname <b>$remhost</b>.\n";
} else {
    print " which does not resolve to a hostname.\n";
}
print " If you don't think this is you, then you may be ",
" going through a firewall, proxy or network cache.\n";
open(OUT,"> testout.txt") || die;
print OUT "Reload to refresh this if you recently viewed it\n";
print OUT $ENV{REMOTE_ADDR}." accessed something at ".localtime()."\n";
close OUT;
print qq(See <a href="testout.txt">testout.txt</a>.\n);