Select Code to Download

#/usr/bin/perl -w
use strict;
...
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";

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