CAST5 block cipher in pure Perl