#!/usr/bin/env perl -l

use strict;
use warnings;
use constant SLEEP_TIME => 20;

my $pid = fork;
die "Can't fork()" unless defined $pid;

if ($pid) {
    print "Parent: $$; Child: $pid";

    local $SIG{TERM} = sub {
        print "Parent received signal: @_";
        kill TERM => $pid if kill 0 => $pid;
    };

    print "Waiting on child ...";
    waitpid($pid, 0);
    print "Child terminated.";
}
else {
    print "Child: $$";

    local $SIG{TERM} = sub {
        print "Child received signal: @_";
        die "Child died via signal handler.\n";
    };

    sleep SLEEP_TIME;
    exit;
}