$curcount=0;
$url_count = keys %url_list;
my $pm = new Parallel::ForkManager(100);
foreach $url (keys %url_list) {
	$curcount++;
	my $fname = $url_list{$url};
	printf STDERR ("\r%02d ($fname) of $url_count files
          retrieved.", $curcount);
	$pm->start and next;
	getstore($url,$fname) or die 'Failed to get page';
	$pm->finish;	
}
$pm->wait_all_children;