#!/usr/bin/perl

use strict;
use warnings;
use Sys::Hostname::FQDN qw(fqdn);

my $fqdn = fqdn();
print $fqdn, "\n";