You need something like this:

$path = 'c:/TEST';
opendir DIR, $path or die "Cant open $path, perl says $!\n";
while (my $file = readdir DIR) {
    next if -d "$path/$file" or -l "$path/$file";
    $lc_name = lc $file;
    rename "$path/$file", "$path/$lc_name" or print STDERR "Can't rena
+me $path/$file, perl says $!\n";
}
[download]

This avoids 1)lowercasing the whole path (won't exist) and 2) skips dirs and symlinks and lc's all else

Update

Added or print STDERR.... for ChOas ;-)

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print