If you want to trap die, eval the code that asserts it:

eval { # dangerous code}
if ($@) {
   print "It up and died: $@\n";
}
[download]