perl -e 'print $^O;'