while ( my $org = $q->dequeue() ) { parse_org( $org, $mech ); $pq->enqueue($org); }