my $h = start \@cat, \$in_q, '>>', "out.txt", '2>>', "err.txt",  debug => 0 ;
$in_q = "help\n" ;  pump $h;   

$in_q = "lscomp\n"; pump $h;  
finish $h or die "cat returned $?" ;