my $b = Test::More->builder;
binmode STDOUT, $b->failure_output, ':utf8';

##</code><code>##

# both of the following are too late for Test::More
# because it has already duplicated STDOUT, STDERR

##</code><code>##

BEGIN {
   binmode STDOUT, ':utf8';
   binmode STDERR, ':utf8';
}
use Test::More;