use Sys::Hostname;

my $hostname = hostname;