use Crypt::OpenPGP;
$key_id = "Garett Holmes: gaholmes\@yahoo.com";
$data = "Encrypt this";
$pgp = Crypt::OpenPGP->new();
$ciphertext = $pgp->encrypt(
     Data => $data,
     Recipient => $key_id,
     Armour => 1,
     ) or die "ERROR: " . $pgp->errstr;