#!/usr/bin/perl
use Data::Dumper;
use Crypt::OpenPGP;

my $pgp = Crypt::OpenPGP->new(Compat => 'GnuPG',
                              PubRing => '/root/.gnupg/pubring.gpg',
                              SecRing => '/root/.gnupg/secring.gpg',
                              ConfigFile => '/root/.gnupg/gpg.conf',
                              );

my $plain = 'hallo';
my $key_id="7B9635D9";
my $ciphertext = $pgp->encrypt(
                   Data   => $plain,
                   Recipients => $key_id,
                   Armour => 1,
                   );

open (CIFI, ">cifi.gpg");
print CIFI $ciphertext;
close (CIFI);

my $result = $pgp->handle( Filename => 'cifigpg.gpg' );

print Dumper($result);

die "Decryption failed: ", $pgp->errstr unless $pt;