Select Code to Download

local *DIR;

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

my $DIR;
opendir $DIR, $dir;