my $up= uc('"$folder"');
			print "\n$up"; --->always prints "$FOLDER"