Perl> $pid = open CMD, '-|', q[perl.exe -le"$SIG{TERM}=sub{print 'here' }; $|++; print ++$i while sleep 1"] or die $!;;

Perl> print scalar <CMD> for 1 .. 10;;
1
2
3
4
5
6
7
8
9
10

Perl> kill 15, $pid;;
Terminating on signal SIGBREAK(21)