$oldFolder='C:\Documents and Settings\user\Desktop';
opendir OF, $oldFolder or die "\nCannot open dir $old1Folder: $!\n";

chdir $oldFolder;
			
while ( my  $name=readdir OF) {
  next if  $name =~ /^\./ or -f $name;
  # not interesting  . o .. (or hidden files) neither in plain files
  print $name;
  }

closedir OF;