pipe($iopair[0], $iopair[1]) or 
        die "Failed opening pipe in start_reader: $!";
      for (qw(0 1)) { select $iopair[$_]; $|=1;}    #unbuffer pipe I/O