in reply to How to catch 'die' signal - CONVERSE case of #811295
Why not release your resources in an END block?
perl -le "END{print 'uhoh, bye'} die 'Feh'" [download]