my $pool = Pool->new;
while (my $job = $pool->get_next_job) {
  #do something with $job->url
  if ($error) {
    $job->skip;
  }
  else        {  
    $job->done;
  }
}