#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';
use Net::Domain qw(hostdomain);

say hostdomain;