sub myfunc {
    ...
    return eval {
       # do bunch of things here...
       if($err_condition) {
          die "error";
       }
       return 1;
    }
  }