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

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

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

exit;