sub numfiles {
  opendir D, shift or die "Ugh. $!\n";
  grep !/^\.{1,2}$/, readdir D;
}