gethostbyaddr

my $host = $ENV{'REMOTE_ADDR'};
my $name = gethostbyaddr(pack('C4',split(/?./, $host)),2);
$name != $host;

Leave a Reply