use Crypt::CBC ();

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

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