use Socket; 
use Sys::Hostname; 
my $host = hostname(); 
my $addr = inet_ntoa(scalar(gethostbyname($name)) || 'localhost');