my $pgp = Crypt::OpenPGP->new (
       "PubRing" => $PubRing
  );
	
  my $ciphertext = $pgp->encrypt (
	"Compat"	=>	$Compat,
	"Data"		=>	$Data,
	"Recipients"	=>	@recipients_list,
	"Armour"	=>	$Armour,
	);
	
  die "Encryption failed: ", $pgp->errstr unless $ciphertext;
	
  return $ciphertext;