#!/usr/bin/perl
use warnings;
use strict;
use GnuPG;

# where you find your default keys, or you can specify an exact key
# get a tutorial, it's alot to explain

my $gpg = new GnuPG(homedir => '/home/z/.gnupg');

$gpg->encrypt(plaintext =>"Gnufile.txt", 
              output => "Gnufile.gpg",
              recipient =>"z\@z.net",
	      armor=> 1,
	      );
exit;