perl -le print $^O