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

sub catcher2 {
    local $SIG{__DIE__} = sub { print "Caught 2!\n"; };
    sub_that_dies();
}

sub sub_that_dies {
    die "Foo";
}

catcher();

##</code><code>##

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