#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use Net::Domain qw( hostfqdn hostdomain );

if (my $hostdomain = hostdomain) {
    say $hostdomain;
}
else {
    my $hostfqdn = hostfqdn;
    say $hostfqdn;
}