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";