Thanks for your help... I finally got this worked out. One thing I had forgotten was the Passphrase. my $message = $pgp->decrypt(Data => $PGPEncryptedMessage, Passphrase => "secret_passphrase") or die "Error: ".$pgp->errstr;
The other thing was that I had accidentally encrypted the original message with the wrong keyID.
I found the software here useful in generating some keys to encode/decode with. http://www.pgpi.org/products/pgp/versions/freeware/dos/2.6.3i/
It allows you to specify your passphrase when you generate.
Comment on Re^4: Decrypting a message with Crypt::OpenPGP
Can you please share, your full solution?
I have read all the post and did the changes recommended above but I still get Can't find secret key to decrypt message.
Any help will be appreciated.
Thank you!