#! perl -slw
use strict;
use threads ( stack_size => 4096 );
use Thread::Queue;
use LWP::Simple;

my $Q = new Thread::Queue;

sub worker {
    while( my $url = $Q->dequeue ) {
        chomp $url;
        ( my $file = $url ) =~ tr[/:?*"][_]; #"
        my $status = getstore $url, $file;
        $status == 200 or warn "$status : $url ($file)\n";
    }
}

our $THREADS //= 4;

$Q->enqueue( <>, (undef) x $THREADS );

$_->join for map threads->create( \&worker ), 1 .. $THREADS;

## use as thisScript -THREADS=8 < urls.list