use Sys::Hostname;
my $hostname = hostname();
...