What gives?

gistfile1.pl

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
our $TBOUT;

BEGIN {
    if ( eval { require Test::Builder; 1 }) {
        my $Testout;
        open( $Testout, '>', \$TBOUT ) || die $!;
        my $old_fh = select $Testout;
        $| = 1; 
        select $old_fh;

        no warnings 'redefine';
        *Test::Builder::reset_outputs = sub {
            my $self = shift;

            $self->output        ($Testout);
            $self->failure_output($Testout);
            $self->todo_output   ($Testout);

            return;
        }; 

        Test::Builder->new->reset_outputs;
    }  
}

use Test::More;

ok( 1 ); 
ok( 0, "blah" ); 
is( 1, 2, "hup" ); 

$TBOUT =~ s/^([^#])/# $1/gm;
print( $TBOUT );