Select Code to Download

my $q  = Thread::Queue->new();
my $pq = Thread::Queue->new();
...
        $thr->join();
    }
}

    while ( my $org = $q->dequeue() ) {

        parse_org( $org, $mech );
        $pq->enqueue($org);
    }