One solution-
use Net::Domain

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

hostfqdn () - Identify and return the FQDN of the current host.

--
my $chainsaw = 'Perl';