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