perl -e 'print "$^O\n"';