for $p (<*.pl>) {
  open P, "perl -MTestFormat $p |" or die $!;
  my $tests = 0;
  my $good = 0;
  while (<P>) {
#    print STDERR;
    next if /\#\s*skipped/;
    $tests++;
    $good++ unless /^not/;
  }
  printf "%12s: %2d/%2d\n", $p, $good, $tests;
}