From 'perldoc Crypt::OpenPGP::Cipher'
use Crypt::OpenPGP::Cipher; my $cipher = Crypt::OpenPGP::Cipher->new($name); my $ct = $cipher->encrypt($plaintext); my $pt = $cipher->decrypt($ct);
[download]

Valid cipher names ($name) are: IDEA, DES3, Blowfish, Rijndael, Rijndael192, Rijndael256, and Twofish.