As I mentioned in the CB when you asked there, use Carp:

$SIG{__DIE__}= sub { require Carp; Carp::confess(@_); };
[download]