my $pua = LWP::Parallel::UserAgent->new();
               
     
               
     $pua->in_order(1);         # handle requests in order of registration
               
     $pua->duplicates(0);         # ignore duplicates
               
     $pua->timeout(1);         # in seconds
               
     $pua->redirect(1);         # follow redirects
               
     $pua->max_hosts(3);         # sets maximum number of locations accessed in parallel
                  
     $pua->max_req($thread_max);     # sets maximum number of parallel requests per host
               
     $pua->agent("MS Internet Explorer");
               
     
               
     foreach my $url (@to_scan) {
                  
         my $request = HTTP::Request->new('GET', $url);
                  
         $pua->register($request);
                  
     }
                
      
               
     my $results = $pua->wait(0);
               
 
               
     my $succeeded     = 0;
               
     my %errors = ();
  
               
     foreach my $entry (values %$results) {
               
         my $response = $entry->response();
               
         print " " . $response->code() . " \n";
               
         #$response->content();
               
     }