sub parallel_search{

foreach my $key (keys %$searches) {
my $pid = $pm->start($key) and next;
$result_set = new Search::ResultSet;
$parsed_search = $$searches{$key}->parse_search();
$result_set = $$searches{$key}->get_search_results($parsed_search, $key);	$pm->finish;

}
$pm->wait_all_children;
return($result_set);
}