Based off thedoe's idea, but will give you a stack trace on all dies.

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