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