my $url_q = Thread::Queue -> new();

sub http_fetch_thread
{
  my $ua = LWP::UserAgent -> new(); 
  $ua -> timeout ( 10 );
  while ( my $item = $url_q -> dequeue() )
  {
    my $url = "http://www." . $item . ".com";
    <... fetch stuff ... >
    
  }
}