my( $totals, $failed ) = eval {
            local @INC = @INC;
            local *STDOUT;                # Shut up Test::Harness!
            local *STDERR;                # Yeah, you too!
            my $MM = ExtUtils::MM->new(); # and you!
 
            unshift @INC, map { File::Spec->rel2abs($_) }
                @{ $MM }{ qw( INST_LIB INST_ARCHLIB ) };
 
            Test::Harness::_run_all_tests( @test_files )
            };