$SIG{__WARN__} ist meines Erachtens OK. Das Manipulieren von $SIG{__DIE__} ist dagegen sehr gefährlich: die() wird in Perl oft als throw() innerhalb eines eval-Blocks verwendet --- das ist legitime Praxis und wird in vielen Modulen praktiziert. Wenn du jetzt einen Handler mit exit() hast, stirbt dein Programm, obwohl eigentlich alles in Ordnung ist. Dagegen kann man sich nur schützen, wenn man in seinen eval-Blöcken als erstes local $SIG{__DIE__}; schreibt.