use Parallel::ForkManager
my $max_forks = 20;

my $forkmanager = Parallel::ForkManager->new( $max_forks );
for ($count = 0; $count <= $max; $count++){
    $forkmanager->start and next;
    my $content;
	unless (defined ($content = get $URL)) {
	   die "could not get $URL\n";
	}
    if ($content =~ /Test1/i) {
        print ".";
    }
    elsif ($content =~ /Test2/i) { 
        print "Fetched page from Server2 \n";
        $count++;
        &result;
    }
    else { print "Page not retreived \n" };
    $forkmanager->finish;
}

$forkmanager->wait_all_children;