Alternatively, you could create a local $SIG{__DIE__} handler, but make sure to consult the discussion in perlvar as well as die in perlfunc.