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

##</code><code>##

my $tb = Test::More->builder;
binmode $tb->failure_output, ":utf8";
$tb->diag(...);