#!/usr/bin/perl
use 5.010;
use strict;
use warnings;


$|=1; # autoflush

my %pids;

for (1..10) {
	my $pid=fork() // die "Can't fork: $!";
	if ($pid) {
		# parent, remember PID
		$pids{$pid}++;
		say "Forked child $_, PID=$pid";
	} else {
		# child
		say "Child process $_";
		sleep (5+rand(5));
		exit 0;
	}
}
while (%pids) {
	my $pid=wait();
	delete $pids{$pid};
	say "child with PID $pid exited";
}
say "all childs exited";