Help for this page
#!/usr/bin/perl -w use Crypt::OpenPGP; ... Cipher => 'CAST5', ); defined($crypt) ? print $crypt : die $pgp->errstr;