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

sub worker {
    my $tid = threads->tid;
    my( $Qin, $Qout ) = @_;

    my $ua = LWP::Parallel::UserAgent->new;
    print "Thread: $tid ready to go";

    while( defined( my $url = $Qin->dequeue ) ) {
        print $url;
    }
}
our $T //= 4;

my( $Qin, $Qout ) = map Thread::Queue->new(), 1 ..2;
my @workers = map async( \&worker, $Qin, $Qout ), 1 .. $T;

sleep 100; ## Read your urls and feed the Q here.