eval {
      # blah blah...
      die ("fooblah");
      # or
      something_that_may_die();
   };
   if($@) { 
      # do something
    }