use Sys::Hostname;

my $host = hostname;