perl -le 'open CHLD, "ls -l |";while(<CHLD>){chomp; print "got: $_"} print "OK"'