$pgp = Crypt::OpenPGP->new (
       "SecRing" => 'test.private'
  )or die Crypt::OpenPGP->errstr;



        my $plaintext = $pgp->decrypt(
                   "Data"        =>  $crypt,
                   "Passphrase" => 'password'
             );<br>
    
  die "decryption failed: ", $pgp->errstr unless $plaintext;

print "PLAINTEXT IS $plaintext\n";