Crypt::Blowfish shouldn't be used directly (since it can only encode an 8 byte string, no more no less). It should be used via Crypt::CBC (which handles padding, and uses chaining for a more secure result than encrpyting every 8 bytes chunk with the same key).

use Crypt::CBC ();

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

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

use Crypt::CBC ();

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

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