use Sys::Hostname;
$HOST=hostname();