Help for this page

Select Code to Download

Select or download this

sub catcher {
    local $SIG{__DIE__} = sub { print "Caught 1!\n"; };
    catcher2();
...
}

catcher();

Select or download this

$ perl bomb.pl 
Caught 2!
Foo at bomb.pl line 30.