#!/usr/bin/perl -l
use LWP;
use Parallel::ForkManager;

use feature ':5.10';

my $pm = Parallel::ForkManager->new(10);
my $lwp = LWP::UserAgent->new;

foreach my $test ( 0 .. 500 ) {
	state $count = 0;
	$count++;
	$pm->start and next;

	my $resp = $lwp->get( "http://google.com/search?q=$test", ':content_file' => $test );
	
	$pm->finish;

}

$pm->wait_all_children;