use POSIX qw( uname );

my $hostname = (uname())[1];

# the rest as above