Resolve IP from /etc/hosts

#!/usr/bin/perl
use Socket;

print "$ARGV[0]\n";
$iaddr = inet_aton($ARGV[0]); # or whatever address
$name  = gethostbyaddr($iaddr, AF_INET);
print "Host name is $name\n";