use Test::More tests => 2; ok(1, 'duh'); print "Bail out! Something happened.\n"; ok(2, 'buh'); #### blah.t .. 1/2 Bailout called. Further testing stopped: Something happened. FAILED--Further testing stopped: Something happened. #### blah.t .. 1/2 Bailout called. Further testing stopped: Something happened.ok 2 - buh FAILED--Further testing stopped: Something happened.ok 2 - buh