my $tb = Test::More->builder; $tb->failure_output(\*STDOUT); $tb->diag($data);