in reply to Test Or Die

sub ok ($;$) {
    &Test::More::ok(@_) or BAIL_OUT("Test is failing")
}

[download]

In Section Seekers of Perl Wisdom