use Crypt::CBCeasy;
my $key = pack("H16", "0123456789ABCDEF");  # min. 8 bytes
my $ciphertext = Blowfish::encipher($key, "my string has lots of bytes!!!!");
print unpack("H16", $ciphertext), "\n";
my $deciphertext = Blowfish::decipher($key, $ciphertext);
print $deciphertext, "\n";