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