#!/usr/bin/perl -w
use strict;
use warnings;
use GPG;
my($passphrase,$key_id) = ("passphrase","KeyName");
my $gpg= new GPG(homedir=>"/home/chinesebob/.gnupg");
die $gpg->error() if $gpg->error();
my $file=$gpg->decrypt_verify($passphrase,"try.pgp");