Everyone seems to want to talk about $SIG{__DIE__}. For much finer-grained control check out eval and $@. If you wish to combine the two mechanisms you will need to use $^S in your DIE handler. See perlvar. (Or use the perldoc command to read the local versions of these.)