use Socket;

​

($name, $aliases, $addrtype,

   $length, @addrs) = gethostbyname "amrood.com";

print "Host name is $name\n";

print "Aliases is $aliases\n";