sub lc_filenames{
    my($dir)=@_;
    $dir||="."; 
    opendir my $DIR, $dir;
    while(defined(my $file=readdir $DIR)){
...