perl -e "$pid = open PIPE, '-|', 'echo one && ping -n 5 127.0.0.1 >nul && echo two';$/=' '; while (<PIPE>){ print $_ . \"\n\"; kill 2, $pid}"