perl -wl -e 'print $^O'