use strict;
use warnings;

use Crypt::Blowfish qw( );
use Crypt::CBC      qw( );
use List::MoreUtils qw( apply );
use MIME::Base64    qw( decode_base64 );

my $key   = '...';
my $ctext = decode_base64('...');

my $cipher = Crypt::Blowfish->new($key);

my $iv = substr($ctext, 0, $cipher->blocksize(), '');

my $cbc = Crypt::CBC->new(
   -cipher => $cipher,
   -header => 'none',
   -iv     => $iv,
);

binmode(STDOUT);
print($cbc->decrypt($ctext));