use POSIX;
$host = (POSIX::uname())[1];
print "$host\n";