Select Code to Download

  try {
    die_sometimes();
  } catch {
...
      print "The try block ran without error.\n";
    }
  };

 use TryCatch;

 sub foo {
...
   catch (Some::Class $e where { $_->code > 100 } ) {
   }
 }