sub foo {
   my $error = 0;
   try {
      die;
   }
   catch {
      print "error\n";
      $error = 1;
   }
   return if $error;
   print "no_err\n";
}