use Crypt::OpenPGP; use CGI; my $pgp = Crypt::OpenPGP->new(Compat => 'GnuPG'); my $cur=CGI->new(); my $phrase=$cur->param('phrase'); my ($plaintext,$valid,$sig)=$pgp->decrypt(Data => $phrase, Passphrase => "abc123!"); print "[message: $plaintext
valid: $valid
signature: $sig
error: ".$pgp->errstr."]

\n";