my $zulu_offset = $isdst ? "-0500" : "-0600";
my $date = "[$mday/$month/$year:$hour:$min:$sec $zulu_offset]";

unless ($ENV{REMOTE_ADDR} =~ /^$ips/) {
        my $hostname;
        $hostname = gethostbyaddr(inet_aton($ENV{REMOTE_ADDR}), AF_INET) or
 $hostname = $ENV{REMOTE_ADDR};
        my $data = "$hostname - - $date";
        open LOG, ">>$logfile" or last;
        flock LOG, 2;
        foreach (keys %entries) {
          print LOG "$data $_\n" if ($ENV{HTTP_REFERER} =~ /$entries{$_}/);
        }
        close LOG;
}