Select Code to Download

opendir(hand,$ARGV[0]);  #replace ARGV[0] with your DIR
    @files = readdir(hand);
...
            push(@logfiles,$_);  
        }
    }

while (scalar @Threads < scalar @logfiles) {
        @running = threads->list(threads::running);
...
        }
        
    }

$nooffiles = @logfiles;
$fileindex=0;
...
open hanr ,">", "$logfiles[$fileindex]" or die "could not open logfile
+ .. $!";
$fileindex++;
}