#!/usr/bin/perl
# gupg.pl

use Crypt::OpenPGP;
 
my $pgp = Crypt::OpenPGP->new;
my ($plaintext) = $pgp->decrypt(
                        Filename => 'testfile',
                        Passphrase => 'password',
);
 
die "Decryption failed: ", $pgp->errstr unless $plaintext;
print $plaintext, "\n";