#!/usr/bin/perl -wT
use strict;
print "Content-type: text/html\n\n";
print "<p><b>$_</b><br>$ENV{$_}\n" for sort keys %ENV;

##</code><code>##

use Socket;
$iaddr  = gethostbyname('www.perlmonks.com');
$name   = gethostbyaddr($iaddr, AF_INET);
print $name;