use Socket;
use Net::Domain qw( hostfqdn );
my $host = hostfqdn();
my $addr = inet_ntoa(scalar(gethostbyname($host)));
print "Name= $host   IP Adr=$addr<\n";