perl -le 'opendir(D,"huge_directory");
  while($_=readdir D) {
   $t = time()-$^T;
   $e++ if ( $t!=$prev );
   if($n and $e==15){ print $n; $n=$e=0 }
   $n++; $prev=$t
  }'