Select Code to Download

try {
  die ("Hello world");
} catch(e) { 
  print("Exception: " $e);
}

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