>perl -MPOSIX=:sys_wait_h -le"my $pid = system 1, $^X=>(-e=>'sleep 5'); while (waitpid($pid, WNOHANG) == 0) { print 'waiting'; sleep 1; } print 'done'"
waiting
waiting
waiting
waiting
waiting
waiting
done