# simple script to resolve hostname from IP use Socket; use CGI qw(:standard); print header; # get DNSentry of IP ( REMOTE_ADDR ) my $dnsname = gethostbyaddr(inet_aton($ENV{'REMOTE_ADDR'}), AF_INET); print "$dnsname\n";