my $hostname = 'yahoo.com';
my $addr = (gethostbyname($hostname))[4];

# Or, as Anonymous Monk points out below, you could simply use: 
# my $addr = gethostbyname($hostname);

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