use Socket;
use Sys::Hostname;
my $host = hostname();
my $addr = inet_ntoa(scalar(gethostbyname($host)));
print "Name= $host   IP Adr=$addr <\n";