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

say "A start";

my $pid;

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

sleep 2;

say "A sending kill HUP -$$";

{
	local $SIG{HUP} = 'IGNORE';
	kill HUP => -$$;
}

say "A waiting for lost children";

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

say "A end";