I believe you are right about the -d $fname thing, try this:

  if ( -d "$path/$fname" ) {
[download]

Also, on a nit-picky note, if you have really big directories, it is more efficient to do a readdir one at a time then to slurp it all into an array

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

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

  }
  closedir(DIR);
[download]

Addendum: The same reason that your -d test is not working applies to your renaming problem. As you can see from your output, readdir doesn't return the path, only the filename. You'll probably need to include full paths with your rename() args.