$ perl -MSys::Hostname -e'print hostname()."\n"'