use Sys::Hostname;
$host = hostname;