#!/usr/bin/perl
# gpg.pl

use Crypt::OpenPGP;
 
my $string = $ARGV[0];
my $pgp = Crypt::OpenPGP->new;
my $ciphertext = $pgp->encrypt(
                        Data => $string,
                        Recipients => 'Test User',
                        Armour => 1,
);
 
open(OUT, ">testfile");
print OUT $ciphertext, "\n";
close(OUT);