use Crypt::Blowfish;
use Crypt::CBC;
my $cipher = new Crypt::CBC("Секретный ключ для шифрования",'Blowfish');
my $crypted_block = $cipher->encrypt_hex($text);
my $text = $cipher->decrypt_hex($crypted_block);
$cipher->finish();

URL:
Обсуждается: http://www.opennet.me/tips/info/651.shtml

• Симметричное шифрование блока данных на Perl.,zenka, 18:53 , 15-Июл-10
  • Симметричное шифрование блока данных на Perl.,Аноним, 21:02 , 15-Июл-10

Дык для написанной тобой функции Crypt::Blowfish не нужен :)

> my $cipher = new Crypt::CBC("Секретный ключ для шифрования",'Blowfish');

Еще как нужен, обрати внимание на последнее слово в отквоченной строке.