#!/usr/bin/perl
#Logger
$time = localtime;
$ip =
"$ENV{'REMOTE_ADDR'}"
;
open
(
OUT,
">>log.htm"
)
;
print OUT
"Access from: $ip at $time<p>
\n
"
;
close
(
OUT
)
;