I think you were after something like this:

#!/usr/bin/perl

use strict;
use warnings;
use POSIX qw/strftime/;
use TAP::Parser qw/all/;
use TAP::Parser::Aggregator qw/all/;

printf STDOUT "\n---\nReport %s\n---\n",
       strftime("%y%m%d-%H:%M", localtime);

my $file = 
    'your_test_here.t';

my $parser = TAP::Parser->new({ source => $file });
while ( my $result = $parser->next ) {
    print "$file results: ", $result->as_string, "\n";
}
    
my $aggregate = TAP::Parser::Aggregator->new;
$aggregate->add( 'your_test_here', $parser );

my $summary = <<'END_SUMMARY';
Passed:  %s
Failed:  %s
Todo:    %s
Skipped: %s
Planned: %s
Unexpectedly succeeded: %s

END_SUMMARY
printf $summary,
    scalar $aggregate->passed,
    scalar $aggregate->failed,
    scalar $aggregate->todo_passed,
    scalar $aggregate->todo,
    scalar $aggregate->skipped,
    scalar $aggregate->planned;
[download]