Повесить свой обработчик на $SIG{__DIE__} и посмотреть на caller'a.<br>