my ($newname) =$handle."\\".$entries[$i];
$newname =~ s/^([a-z])/\u$1/g;
rename ($handle."\\".$entries[$i], $newname);

##</code><code>##

my ($newname) =$entries[$i];
$newname =~ s/^([a-z])/\u$1/g;
rename ($handle."\\".$entries[$i], $handle."\\".$newname);