#!/usr/bin/perl -w
use strict;

my $hostname = 'www.yahoo.com';
my ($name,$aliases,$addrtype,$length,@addrs) = gethostbyname($hostname);
foreach my $addr ( @addrs ) { 
  print join('.', unpack('C4', $addr)), "\n"; 
}