my $first_time = 1;
for my $sig (qw/INT TERM CHLD USR1 HUP/) {
	$SIG{$sig} = sub {
		local ($!,$^E,$@);
		if ($first_time) {
			$first_time = 0;
			kill (POSIX::SIGUSR2, keys %{$self->{children}});
			print STDERR "EXIT on SIG$sig\n";
			exit(1);
		}
	};
}

do_parent_work();