Select Code to Download

# my test code
  catch    { print "unphooey again\n"; } ;

try {... some code to try ... } sub { ... some code to catch }

sub try (&@) {
    my($try,$catch) = @_;
...
} sub {
    /phooey/ and print "unphooey\n";
};

sub try (&$) {
    my($try,$catch) = @_;
    eval { &$try };
...
} catch {
    /phooey/ and print "unphooey\n";
};