state $collected;
$num = read($child_fh, $buf, 1e6);
if ($num)
   { $collected .= $buf;
     if ($collected  =~ /:MSG:(.*):DONE:/s)
        { $dumper = $1;
          %info = %{ eval $dumper }
          $collected = "";
        }
   }