local *DIR;

##</code><code>##

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

##</code><code>##

my $DIR;
opendir $DIR, $dir;