gistfile1.pl

my $pid = fork;

if (!$pid){
        local $SIG{TERM} = sub {exit 0};
        for(1..5){
                print "child process\n";
                sleep 1;
        }
        exit;
} else {
        sleep 3;
        die;
}

gistfile2.pl

my $pid = fork;

if (!$pid){
        local $SIG{TERM} = sub {exit 0};
        for(1..5){
                print "child process\n";
                sleep 1;
        }
        exit;
} else {
        local $SIG{__DIE__} = sub {
                kill 'TERM', $pid;
        };
        sleep 3;
        die;
}

gistfile3.pl

my $pid = fork;

if (!$pid){
        local $SIG{TERM} = sub {
                sleep 2;
                print "child finish\n";
                exit 0;
        };
        for(1..5){
                print "child process\n";
                sleep 1;
        }
        exit;
} else {
        eval{   
                sleep 3;
                die;
        };
        if($@) {
                kill 'TERM', $pid;
                wait;
                die "$@";
        }
}

親プロセス側で$SIG{__DIE__}でシグナル送ればやりたいことはできるけど、
それだったらevalでくくってシグナル送った方がいいよね。。。

訂正：perl 5.12でも同じでした！失礼