#################
## trialencode ##
#################

use strict;
use GPG;

my $gpg = new GPG(homedir => '/home/jaf/.gnupg');

my $plain="ARGHH!!";

my $phrase=$gpg->encrypt($plain,"jaf0faj\@xxxxxxx");
die $gpg->error() if $gpg->error();

print "Plain: $plain\n\nEncoded:\n$phrase\n";
open (OUT, ">trialencoded");
print OUT $phrase;
close (OUT);