#!/usr/bin/perl

use strict ;

use Crypt::GPG ;
use Archive::Tar ;

my $gpg = new Crypt::GPG ;
$gpg->gpgbin('/bin/gpg') ;
$gpg->secretkey('my_email_address') ;
$gpg->passphrase('my_gpg_passphrase') ;
$gpg->armor(1) ;

my $encryptedFile = '/home/xuo/TheCat.gpg' ;
my $tarFile_read = '/home/xuo/TheCat.tar.gz' ;
my $tarFile_write = '/home/xuo/TheCat_from_gpg_encrypt.gpg' ;

my @encryptedFileArray = () ;
my @fileToBeEncrypted = () ;
my @fileToBeDecrypted = () ;
my @gpgEncryptedFile = () ;

open(TAR_FILE, "$tarFile_read") || die "can't open file $tarFile_read 
+!" ;
@fileToBeEncrypted = <TAR_FILE> ;
close(TAR_FILE) ;

my @gpgEncryptedFile = $gpg->encrypt(\@fileToBeEncrypted, 'my_email_ad
+dress') ;
open(GPG_FILE, ">$encryptedFile") || die "can't open file $encryptedFi
+le !" ;
print GPG_FILE "@gpgEncryptedFile" ;
close(GPG_FILE) ;

open(GPG_FILE, "$encryptedFile") || die "can't open file $encryptedFil
+e !" ;
@fileToBeDecrypted = <GPG_FILE> ;
close(GPG_FILE) ;

my ($plaintext, $signature) = $gpg->verify(\@fileToBeDecrypted) ;
open(TAR_FILE, ">$tarFile_write") || die "can't open file $tarFile_wri
+te !" ;
print TAR_FILE "$plaintext" ;
close(TAR_FILE) ;

exit ;
[download]

Here is an SSCCE showing an encryption/decryption round trip. Just set the three env vars accordingly and run.

#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';
use Crypt::GPG;

my $gpg = Crypt::GPG->new;

$gpg->gpgbin ('/usr/bin/gpg');
$gpg->secretkey ($ENV{SECRET_KEY});
$gpg->passphrase ($ENV{GPG_PP});
$gpg->armor (1);

my $plaintext = 'PerlMonks Rocks!';

say "Plain text: $plaintext";

my @enctext = $gpg->encrypt ([$plaintext], $ENV{TO_EMAIL});

say "Encrypted text: @enctext";

my $decrypted = $gpg->verify (\@enctext);

say "Decrypted text: $decrypted";
[download]

---

🦛

Thank you. I'll try again this week-end.
But here, my concern is : why should I add my secret key in plaintext ?

Regards.

Xuo.