Help for this page
my @failures; foreach my $file (<t/*.t>) { ... else { print "All tests succeeded.\n"; }