perl -M"5;@ARGV=glob shift" -lnE "last if /__DATA__/;$c++ unless /^$|^\s*#/}{say $c" "./t/*.t"