while ($_ = readdir(INDIR)) {
  ...
}