#!/usr/bin/perl --
Main( @ARGV );
exit( 0 );
sub Main {
   ... ; ## GetOpt::Long / GetOpt::Declare ...
   UrlFile_FetchingThreads ( '/f/o/o/bar.txt', 4 );
##    UrlFile_FetchingThreads ( $filename, $maxthreads );
}

sub UrlFile_FetchingThreads {
    my( $filename, $maxthreads ) = @_;
    my @urls = GetUrls( $filename );
    my $qin  = threads::Q->new();
    my $qout = threads::Q->new();
    $qin->nq( @urls );
    for ( 1 .. $maxthreads ){
        my $tt = threads->create( \&tryHTTP, $qin, $qout );
        $tt->detach;
    }
    
    my $quitter = 0;
    while( 1 ){
        if( my $res = $qout->dq_nb ){
            doSomething( $ret );
        }
        sleep 1;
### this part not used before, completely untested, probably too complex
        if( not $qin->cq ){
            $quitter++;
        } else {
            $quitter = 0;
        }
        if( not $qout->cq ){
            if( $quitter > 5 ){
                die "FINISHED, no more urls to process, no more responses to process\n";
            }
        }
    }
}
sub tryHTTP {
    threads->detach();    ## can't join me :)
    my( $qin, $qout ) = @_;
    while( 1 ){
        my( $url ) = $qin->dq;
        ...
        my $res = $lwp->get( $url );
        $qout->nq( $res );
    }
    return;
}