use Sys::Hostname;
print hostname;