Select Code to Download

perl -we "sub fail{die 'test'}; END{ print qq'\nF\n'; fail() }; 
$SIG{__DIE__} = sub{print qq!\nS\n!; fail()}; fail()"
...

S
test at -e line 1.

#!perl -w
use strict;
...
END{ ++$counter; print "$counter: End called.\n"; fail() }
$SIG{__DIE__} = sub{ ++$counter; print "$counter: SigDie called.\n"; f
+ail() }; 
fail()

1: Fail called.
2: SigDie called.
...
8: SigDie called.
9: Fail called.
DEATH 4