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;


##</code><code>##

while (my $name=readdir OF) {
      next if  ( ($name =~ /^\./ )||(-f $name) ); 

      #must print only directories

      print $name;
      print "\n";

}