use strict;

my @returnVal = gethostbyname "www.perlmonks.org";

my @packedIP = $returnVal[4];

my ($a, $b, $c, $d);

my @a = ($a, $b, $c, $d) = unpack('C4', $packedIP[0]);

my $ip = "$a.$b.$c.$d";

print $ip;

exit(0);