Perl

  • perl -MO=Deparse,-p -e 'my $x = $? & 128 ? 1 : 0, 2, 3'
  • Leaks