#!/opt/perl/bin/perl
use 5.012;
use warnings;

say "  B start";

my $pid;
unless ($pid = fork) {
	die "cannot fork: $!" unless defined $pid;
	system("./c.pl");
	sleep 30;
	exit;
}

say "  B waiting on lost children";

while (1) {
	my $kid = waitpid -1, 0;
	$kid == -1 and last;
	say "  B reaped child $kid";
}

sleep 30;

say "  B end";