eval { local $SIG{_ _ DIE _ _ }; .... }