• under Win32 AND Linux
• without having it crash due to too many leaked scalars
• without using a GB of ram
• without being incredibly slow when downloading

1. Should run anywhere Perl+threads do.

   (I don't have Linux!)

2. No scalars leaked on my system.
3. Uses 50MB for 4 concurrent threads.
4. 16 files - 46,617,229 bytes - 181 seconds - 257 KB/s.

   (The maximum throughput of my connection: 2496 kbps.)

#! perl -sw
use 5.010;
use strict;
use threads ( stack_size => 0 );;
use Thread::Queue;


sub thread {
    my $tid = threads->tid;
    require LWP::Simple;
    my( $Q, $dir ) = @_;

    while( my $url = $Q->dequeue ) {
        my( $file ) = $url =~ m[/([^/]+)$];
        my $status = LWP::Simple::getstore( $url, "$dir/$file" );
        printf STDERR "[$tid] $url => $dir/$file: $status\n";
    }
}

our $T      ||= 4;
our $DIR    ||= '.';

say scalar localtime;

my $Q = new Thread::Queue;
my @threads = map
    threads->create( \&thread, $Q, $DIR ), 1 .. $T;

chomp, $Q->enqueue( $_ ) while <>;
$Q->enqueue( (undef) x $T );
$_->join for @threads;

say scalar localtime;
[download]

Console log from test session: