use strict; use warnings; use Test::More; Test::More->builder->output(\ my $scalar); is($_,$_,"equality $_") for 1..10; is(1,0,"FAIL"); done_testing;