use POSIX;

my $date_for_logfile = strftime( "%e %B %C%y, %T", localtime);

##</code><code>##

my $ts = scalar localtime;

##</code><code>##

my $ip = '127.0.0.1';
print ip_error() unless check_ip($ENV{REMOTE_ADDR},$ip);

##</code><code>##

sub check_ip {
   my ($ip1,$ip2) = @_;
   return $ip1 eq $ip2;
}

##</code><code>##

sub ip_error {
   return header,
      start_html(
         -title => 'Error',
         -style => { 
            -code => q|body { font-family: "Verdana, Arial"; text-align: center; color: red }|,
         },
      ),
      b('Invalid ip-number'),
   ;
}

##</code><code>##

print ip_error() unless $ENV{REMOTE_ADDR} eq $ip;

##</code><code>##

}
}