my $strap = Test::Harness::Straps->new();

for my $test ( <path/to/tests/*.t> )
{
    # warn/debug "Running test: $test\n";
    my %result = $strap->analyze_file( $test );
    next if $result{passing};
    # Build report on failing results here
    # to present in an Ajax'd div or something.
}