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

say $cipher->encrypt('foo'), Dumper $cipher;