$perl 
print $^O . "\n";
darwin