#!/usr/bin/perl --

use strict;
use warnings;

use Net::hostent;
use Socket;

my @addrs = @{ gethostbyname('www.yahoo.com')->addr_list };