Language Basics Perl

print $^O;