use TAP::Parser;
for my $file ( @test_files ) {
    my $parser = TAP::Parser->new( { source => $file } );
    # do stuff with the parser
}

##</code><code>##

use Test::More 'no_plan';

my $ok_fh      =  'ok.txt';
my $fail_fh    =  'fail.txt';

my $Test = Test::More->builder;
$Test->output($ok_fh);
$Test->failure_output($fail_fh);

ok(1);
ok(0,'bar');