Select Code to Download

use Crypt::OpenPGP;
$pgp = Crypt::OpenPGP->new ();
...
open(PRIVATE,">test.private") or die "COULD NOT OPEN priv\n"; 
print PRIVATE $private; 
close(PRIVATE);

use Crypt::OpenPGP;
use Crypt::OpenPGP::KeyRing;
...
   Armour => 1,
);
defined($crypt) ? print $crypt : die $pgp->errstr;

$pgp = Crypt::OpenPGP->new (
       "SecRing" => './pgp/test.private'
...
            print "Enter passphrase: ";
        }
    }