use Crypt::CBC ();

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

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