open(HAN,"$allConfig{'pathToClientBinary'} $allConfig{'dmProdHost'} $allConfig{'dmProdPort'} $allConfig{'queryMsgType'} \" $dupreformedQuery \"|") || confess "$!";
        $prod = <HAN>;