perl -le 'print $^O'