use TAP::Harness
use IO::Handle;
use TAP::Formatter::HTML;
use File::Glob::Windows;
use TAP::Parser::Aggregator;

my $fmt = TAP::Formatter::HTML->new;

my @tests = glob( 'te*.pl');
my $harness = TAP::Harness->new( { formatter => $fmt, merge => 1 } );

$fmt->output_file('output.html');

$harness->runtests(@tests);