<: for my $f (glob("*.counter")) { print "$f: "; include $f; print "
\n"; } :>