#!/usr/bin/perl print "Content-type: text/html\n\n"; foreach (sort keys %ENV) { print "$_ = $ENV{$_}<br>\n"; } print "\n";
if ($ENV{REMOTE_HOST} eq $ENV{REMOTE_ADDR} or $ENV{REMOTE_HOST} eq '') { $remote_host = gethostbyaddr(pack('C4',split(/\./,$ENV{REMOTE_ADDR})),2) or $ENV{REMOTE_ADDR}; } else { $remote_host = $ENV{REMOTE_HOST}; }[an error occurred while processing this directive]