#!/usr/bin/perl -w

use strict;
use Carp;
use GPG;
my( $gpg ) =  new GPG( homedir => "/home/alice/.gnupg" );
croak $gpg->error() if $gpg->error();

my( $enc ) = $gpg->encrypt( "Can you read this", "bob\@dot.com" );
croak $gpg->error() if $gpg->error();

print $enc;

##</code><code>##

gpg --encrypt --recipient bob@dot.com

##</code><code>##

-----BEGIN PGP MESSAGE-----
Comment: For info see http://www.gnupg.org

hQEOA9QD1LpROcE4EAQAg1EHC7h2n6ziXat276UZXrMsMkmYp5CUJx7DFgEMrOcm
RjGcvF52HRBVjNiiiICN2PohAjWY3ZPCrzS0gALSkHIKQsRW+9eF5sCILtQCUERm
Zls10oPsuSyGM1nrkfd84t9G3QrlJI7ojUAtzD9CFbQOUm/CFWF0Xn7vVSDfNckD
/iG43Irj4GmHy5IWclXveZmYe/Z6jSxfwJhn2YqL4ihyRchXIWIykESoaBQSR9rt
0WUo+h0dbbWK2/NoC3kzfj3IbM2VvHnuGh4jgL8C8FcwFkypzuoP+h5RJesc1H+l
XHJZBYCZN4y4+YLgSqtlgZBFZMy/PpLFi3smSiqj3HyV0kwB7FJjMswEyRhiAEbc
9+DMW0Y6m/V9NZ92ORjLBvKmjz/UoLOlHqhA/OR5knD3nn6IJu5OZHXt+IUEUhYC
QnM+Zs1Rug+v6lYBCpN7
=Rjs4
-----END PGP MESSAGE-----

##</code><code>##

#!/usr/bin/perl -w

use strict;
use Carp;
use GPG;

my( $gpg ) =  new GPG( homedir => "/home/bob/.gnupg" );
croak $gpg->error() if $gpg->error();

my($text) = join( "", <> );

my( $dec ) = $gpg->decrypt( BOBS_PASSPHRASE, $text );
croak $gpg->error() if $gpg->error();

print $dec;

##</code><code>##

Can you read this