If you want to catch calls to die, then borisz has the answer for you, but if you want to capture warnings, you can use $SIG{'__WARN__'}. This allows you to install an arbitrary warning handler subroutine. You can read the details in perldoc -f warn.