use Sys::Hostname;

$host = hostname();

