如何用Perl来获取主机地址？

#!/usr/bin/perl

#ok, let's begin.
use Socket;
use Sys::Hostname;

#get hostname && get hostaddress info
my($name,$aliases,$type,$len,@myaddr)=gethostbyname(hostname());
print "$name,$aliases,$type,$len/n";

foreach $hostip (@myaddr)
{
print "IP:".inet_ntoa($hostip)."/n";
}
 

#end of this script.