use Net::Domain qw(hostdomain hostfqdn);

my $hostfqdn = hostfqdn;
print "FQDN : $hostfqdn \n";
my $hostdomain = hostdomain;
print "DOMAIN: $hostdomain \n";