Select Code to Download

use strict;
use warnings;
...
is(1,0,"FAIL"); 

done_testing;

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

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

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