#!/usr/bin/perl
use strict;
use warnings;
use Sys::Hostname;

my $hostname = hostname;
print "$hostname\n";