opendir OF, $oldFolder or die "\nCannot open dir $oldFolder: $!\n";
	
	
while (	my  $name=readdir OF) {
   next if  $name =~ /^\./ ; 	
   next if -f "$oldFolder/$name"; 

   print $name;
   print "\n";


}

closedir OF;