continue {
    $files++ if eof;
  }
  close $fh or die "Can’t close file $file: $!";