my $path = '/home/costas/test';

opendir (DIR, $path) or die "Can't opendir: $!";

for (readdir DIR) {
    rename("$path/$_", "$path/" . lc);
}

closedir DIR;