#!/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.