in reply to Exit codes and signals

bash does 
exit($? & 0x7F ? ($? & 0x7F) | 0x80 : $? >> 8);

[download]

In Section Seekers of Perl Wisdom