Perl
perl -MO=Deparse,-p -e 'my $x = $? & 128 ? 1 : 0, 2, 3'
Leaks
Become a Hero Plumber
Devel::Gladiator
Devel::Cycle
Devel::Leak