my $gpg=Crypt::GPG->new();
$gpg->gpgbin($CONFIG{gpgbin});
$gpg->gpgopts('--lock-multiple') ;
$gpg->secretkey($CONFIG{secretkeyuserid});
$gpg->passphrase($CONFIG{password});
$gpg->encryptsafe(0);
$gpg->debug(1);
print "decrypting\n";

open DECRYPT ,"<$CONFIG{decryptfile}";
my @decr=<DECRYPT>;
close DECRYPT;
my ($message,$sig)=$gpg->decrypt(\@decr) or die "Error decrypting\n";
print "message1=$message\n\n";

open DECRYPT ,"<$CONFIG{decryptfile}";
my @decr2=<DECRYPT>;
close DECRYPT;
my ($message2,$sig2)=$gpg->decrypt(\@decr2) or die "Error decrypting\n";
print "message2=$message2\n\n";

open ENCRYPT, "<$CONFIG{encryptfile}";
my @encr=<ENCRYPT>;
close ENCRYPT;

my $encryption=$gpg->encrypt(join('',@encr),$CONFIG{icskeyuserid},'-sign') or die "error encrypting\n";