while ($_ = readdir(INDIR)) {
  next if -d || $_ eq '.' || $_ eq '..';
  ...
}