perl -MPOSIX -le 'print((uname)[1])'