use strict;
use warnings;
use Net::Domain qw( hostfqdn );

my $host = hostfqdn();
print "$host\n";