Perl> $pid = system 1, 'perl', '-E"sleep 20; say q[done]"';;
Perl> print kill 0, $pid while sleep 1;;
1
1
1
1
1
1
1
1
1
1
1
1
done
1
0
0
0
0
0
0
0