use Crypt::CBC ();

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

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

##</code><code>##

use Crypt::CBC ();

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

my $ciphertext = ...;
my $plaintext  = $cipher->decrypt($ciphertext);