sub encrypt {
    ...
    if ($param{SignKeyID}) {
        $ptdata = $pgp->sign(
        ...
        KeyID => $param{SignKeyID},
        ...