use Net::hostent;
use Socket;

my $h = gethost($name)
    or die 'Could not resolve host name';
my $addr1 = inet_ntoa($h->addr);
print "$addr1\n";