Select Code to Download

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

use Crypt::OpenPGP;
   
...
  die "Encryption failed: ", $pgp->errstr unless $ciphertext;
    
print $ciphertext;