if ( -d "$path/$fname" ) {

##</code><code>##

  opendir(DIR, $path);
  @files = readdir(DIR);

  $ct = 0;
  while ($fname = readdir(DIR)) {
  
   ... # Damian Conway's 'yada, yada, yada' operator :)

  }
  closedir(DIR);