$pid = open CMD, '-|', q[perl.exe -le"print ++$i while sleep 1"] or die $!;;

##</code><code>##

$pid = open CMD, '-|', q[perl.exe -e"print ++$i while sleep 1"] or die $!;;