use Crypt::CBC qw( );

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

my $ciphertext = $cipher->encrypt("This data is hush hush");
my $plaintext  = $cipher->decrypt($ciphertext);