perl> $pid = open KID, 'perl -e"1 while sleep 1 |' or die $!;;
perl> kill 21, $pid;;
Terminating on signal SIGBREAK(21)
perl> close KID;;