use Crypt::OpenPGP;
my $keyring = Crypt::OpenPGP::KeyRing->new( Filename => "foo.asc" );
my $pgp = Crypt::OpenPGP->new( PubRing => $keyring );
my $data = $pgp->encrypt( Filename => $filename );