try to eval

eval {
    do_things();
    do_something_that_might_die();
    do_more_things();
};

if ($@) {

   print "something that might die has, indeed, died.\n";
   print "message: ", $@, "\n";

}
[download]

Or something along these lines.