use Sys::Hostname;

$name = hostname;