use strict;

my @children = ();
$SIG{INT} = sub {
    kill 15, @children if @children > 0;
    print STDERR "children sent TERM signal\n";
    exit 1;
};

if(my $pid = fork()) {
    push @children, $pid;
    print "forked off child $pid\n";
} else {
    print "in child process\n";
}