$SIG{__DIE__}= sub {warn "\$SIG{__DIE__} handles: $_[0]"; };         

sub my_eval (&) {
    eval {
        local $SIG{__DIE__};               #deactivate die-handler    
        $_[0]->();
    }
}


warn "--- normal eval\n";
eval { die "EVAL\n" } or warn "Eval caught: $@\n";

warn "--- improved eval\n";
my_eval { die "MY_EVAL\n" } or warn "My_Eval caught: $@\n";

warn "--- top level die\n";
die "OUTER SCOPE\n";