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

##</code><code>##

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

##</code><code>##

sub try (&@) {
    my($try,$catch) = @_;
    eval { &$try };
    if ($@) {
       local $_ = $@;
       &$catch;
    }
}
sub catch (&) { $_[0] }
   
try {
    die "phooey";
} sub {
    /phooey/ and print "unphooey\n";
};

##</code><code>##

sub try (&$) {
    my($try,$catch) = @_;
    eval { &$try };
    if ($@) {
       local $_ = $@;
       &$catch;
    }
}
sub catch (&) { $_[0] }
   
try {
    die "phooey";
} catch {
    /phooey/ and print "unphooey\n";
};