my $packedIP = gethostbyname("www.perlmonks.org");
print join('.', unpack("C4", $packedIP)), "\n";