in reply to Odd convention? (fall-back module in BEGIN block)
local $SIG{__DIE__}=sub{warn 'sig die ', @_}; eval 'die'; eval 'local $SIG{__DIE__}; die'; __END__ sig die Died at (eval 1) line 1. [download]