$DH = Crypt::DH::GMP->new(p        => $p,
                              g	       => $g,
                              priv_key => $DH_private);

    $DH->generate_keys;