$ perl -le 'print $^O'
darwin