I am using version 3.

my %args = (
    lib     => [ '../lib', '../blib' ],
    verbosity => -2,
    merge => 1,
);

my $harness = TAP::Harness->new( \%args );

@tests = ('1.t');

my $aggregator = TAP::Parser::Aggregator->new;

$aggregator->start();

$harness->aggregate_tests( $aggregator, @tests );

print "aggregate:",$aggregate;
[download]

But this supresses all the output that gets printed on the screen. I want the output of the test script ie; all the 'ok' and 'is' test case outputs as it is, but need to suppress the warning or output of the .pl script that is called from .t