use strict;
use warnings;
use Test::More;

Test::More->builder->output(\ my $scalar);

is($_,$_,"equality $_") for 1..10;

is(1,0,"FAIL"); 

done_testing;

##</code><code>##

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/redirect_Tests.pl 
#   Failed test 'FAIL'
#   at d:/tmp/pm/redirect_Tests.pl line 11.
#          got: '1'
#     expected: '0'
# Looks like you failed 1 test of 11.

##</code><code>##

open my $null,">","nul";

Test::More->builder->output($null);