gistfile1.txt

            no warnings 'redefine';
            my $code = \&Test::Builder::child;
            *Test::Builder::child = sub {
                my $builder = $code->(@_);
                binmode $builder->output,         ":utf8";
                binmode $builder->failure_output, ":utf8";
                binmode $builder->todo_output,    ":utf8";
                return $builder;
            };