use 5.010;
use Net::Domain qw(hostname hostfqdn hostdomain domainname);

say "hostname: ", hostname();
say "hostfqdn: ", hostfqdn();
say "hostdomain: ", hostdomain();
say "domainname: ", domainname();

my $host = hostfqdn() . '.';
use Socket;
my $addr = inet_ntoa(scalar(gethostbyname($host)));
print "Name= $host   IP Adr=$addr <\n";