#/usr/bin/perl -w
use strict;
use Socket;
my $host = "www.yahoo.com";
my @addresses = gethostbyname($host)   or die "Can't resolve $host: $!\n";
@addresses = map { inet_ntoa($_) } @addresses[4 .. $#addresses];
print "The next set is @addresses \n";