Select Code to Download

    $DH = Crypt::DH::GMP->new;

...
    $DH->p($p);
    $DH->priv_key($DH_private);
    $DH->generate_keys;

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

    $DH->generate_keys;