local $SIG{__DIE__}=sub{warn 'sig die ', @_};
eval 'die';
eval 'local $SIG{__DIE__}; die';
__END__
sig die Died at (eval 1) line 1.