Select Code to Download

use POSIX;

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

my $ts = scalar localtime;

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

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

sub ip_error {
   return header,
...
      b('Invalid ip-number'),
   ;
}

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

}
}