Select Code to Download

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