Select Code to Download

sub try (&$) {
   my($try, $catch) = @_;
...
}

sub catch (&) { $_[0] }

  try {
     die "phooey";
...
  catch {
     /phooey/ and print "unphhoey\n";
  }

  sub identity {
      return $_[0];
  }

   sub example {
      /foo/ and print "foo detected";
...
   catch { 
           /foo/ and print "foo detected";
   }

  try { 
    # some code that dies 
...
  catch { 
    # pattern match against $_ for die string 
  }

  try( sub{ 
            # code that dies 
...
                 } 
         ) 
  );