try {
    die "foobar\n";
    print "OK";
} catch {
    print "FAILED!\n";
};

##</code><code>##

try( sub { die "Foobar"; print "OK"; },
     catch(sub { print "FAILED!\n"; })
   );