$SIG{__DIE__} = sub {
    return if $^S; # ignore die in an eval block
    ...
};