perl5 Blowfish implementation 