Select Code to Download

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

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