Select Code to Download

sub getHTML {
    my( $Qin ) = @_;
...
        retrieveInfo( $content );
    }
}

sub listParse {
    my( $url,  $Qout ) = @_;
...
    ## Push 1 undef per thread to terminate their loops
    $Qout->enqueue( (undef) x $noOfThreads );
}

## Join the threads
$_->join for @threads;