#!/opt/perl/bin/perl -w

#use strict;
use GnuPG qw( :algo );

my $gpg = GnuPG->new(gnupg_path => "/usr/local/bin/gpg", homedir => "/home/rolivier/.gnupg");

my $encfile='/home/ro/big.testfile.gpg';
$outfile = $encfile;
$outfile =~ s/.gpg//;
my $pp='Passphrase';

$gpg->decrypt(ciphertext => $encfile, output => $outfile, passphrase => $pp);