Select Code to Download

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

my $msg;
try {
...
  print "File could not be opened because of: $@\n";
  $msg = "BAAAAH";
}