Filenames to lower case

#!/usr/bin/perl
foreach (<*>) {
    $newname = lc($_);
    print `mv -v $_ $newname`;
}