open(INPIPE,"$reader_prog $options |") 
 or die('Cant open reader');
while($bytes = read(INPIPE,$buffer,32768)){
    print $buffer;
}