How can I write a SIG{__DIE__} handler that works in eval blocks?

Question

According to the perldoc -f die, which documents $SIG{__DIE__}

Although this feature was to be run only right before your program was to exit, t