
#!/usr/bin/perl


#Logger
$time = localtime;
$ip = "$ENV{'REMOTE_ADDR'}";

open(OUT, ">>log.htm");
print OUT "Access from: $ip at $time

\n"; close(OUT);