This assumes you have installed the Net::Domain module on your system.

Here is the boilerplate code to return the system hostname using Net::Domain.

#!/usr/bin/perl
use strict;
use warnings;
use Net::Domain qw(hostname);
my $hostname = hostname();
print "\$hostname = $hostname";
exit;