eval {
   ...
   something_that_might_die();
   ...
};

if ($@) {
   # It died.
   # The error message is in $@
   ...
}