gistfile1.txt

use 5.12.0;
use warnings;
use utf8;
use POSIX ':sys_wait_h';
my $pid = fork();

if ( $pid ) {
    # parent
    say "parent-start child_pid: $pid";
    sleep 1;
    kill 'TERM' => $pid;
    my $kid;
    do {
        $kid = waitpid(-1, WNOHANG);
    } while $kid == 0;
    #} while defined($kid) && $kid > 0;
    say "kid: $kid";
    say "parent-end";
}
else {
    $SIG{TERM} = sub { say "TERM received" };
    say "child-start";
    sleep 3;
    sleep 3;
    say "child-end";
}