my $allowed_childs	= 10;
<other code>
		## Main update agent
		my @agency	= ();	# Agents (forks)
		my $recID	= &gen_random(4);	# IPC key as $transID, but only visible for childs of the update agent
		# Separate transfer array for agents (sub-forks of fork)
		my $update_knot	= tie(my @receiver, 'IPC::Shareable', $recID, {
			create	=> 1,
			mode	=> 0600,
			destroy	=> 1,
			size	=> IPC::Shareable::SHM_BUFSIZ(),
			#size	=> 131072 * 2,
			});
		# Array to store what was transfered through @receiver, because IPC-tied arrays are very small
		my @storage	= ();
		# Transfer child elements to @storage
		my $_sub_gatherer	= sub {
			my $allowed_childs	= shift;
			if ( &wait_children($allowed_childs, \@agency) ) {
				my $knot	= tie(my @cleaner, 'IPC::Shareable', $recID);
				$knot->shlock;
				push(@storage, splice(@cleaner, 0, scalar(@cleaner) - 1));
				$knot->shunlock;
				return(1);
				}
			return(0);
			};

<other code>

						# Get region dependend type ids
						foreach my $region ( @regions ) {
							my $agent		= fork;
							# Parent
							if ( defined($agent) && $agent ) {
								push(@agency, $agent);
								&debug_out("get_region_types(): Started download agent $agent");
								#Time::HiRes::sleep(0.01);		# WORK Maybe no longer needed because of dl_lock()
								#&{$_sub_gatherer}(sprintf("%.0f", $max_forks * 0.5));
								&{$_sub_gatherer}(1);

								# Report to main window
								$perc_count	+= 15 / scalar(@regions);
								$ac_knot->shlock;
								$agent_carrier{progress_percent}	= $perc_count / &{$_sub_percent_base}();
								$ac_knot->shunlock;
								}
							# Child
							elsif ( defined($agent) ) {
								srand();
								my @region_market_types	= &downloader(0, "/markets/$region/types/");

								if ( @region_market_types ) {
									my $knot	= tie(my @sender, 'IPC::Shareable', $recID);
									$knot->shlock;
									push(@sender, encode_json(\@region_market_types)); # Here the failure occures: Length of shared data exceeds shared segment size at ./myprogram.pl line 1210.
									$knot->shunlock;
									}
								exit(0);
								}
							else {
								&debug_out(
									"update_types(): Can't fork",
									);
								&pprop_exit();
								}
							}

						# Wait for children
						&wait_children(1, \@agency);

<other code>

sub wait_children {
	my $left	= shift;
	my $childs	= shift;
	my $waiting	= 0;

	if ( $left < 1 ) {
		$left	= 1;
		}

	while ( scalar(@{$childs}) >= $left ) {
		$waiting	= 1;
		Time::HiRes::sleep(0.1);
		@{$childs}	= grep { kill(0 => $_) } @{$childs};
		}

	return($waiting);
	}