my $hostname = 'yahoo.com';
my $addr = gethostbyname($hostname);
my ($a,$b,$c,$d) = unpack('C4',$addr);
print "$a.$b.$c.$d\n";