$pipe->reader(qw(ls -l));
 while(<$pipe>) {
                 print   ...
               }