Users-MacBook-Pro:~ User$ perl -e print $^O
Users-MacBook-Pro:~ User$