Select Code to Download

kill TERM => $pid;

my $pid = open(my $fr_chld, '-|',
    $^X, -le => '$|=1; { print ++$i; sleep 1; redo; }'
...
} else {
    print("Child exited successfully\n");
}

1
2
3
4
Child died from SIGPIPE