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