perl -MSys::Hostname -le " print hostname "