#!/usr/bin/perl

use Crypt::CBC;

my $cipher = Crypt::CBC->new(
    -key => 'my secret key blah blah',
    -cipher => 'Blowfish',
);

my $ciphertext = $cipher->encrypt_hex("This data is hush hush blah blah");
my $plaintext  = $cipher->decrypt_hex($ciphertext);

print "$ciphertext\n$plaintext\n";