use Net::Domain qw(hostfqdn);
    my $fqdn = hostfqdn ();