use Crypt::Blowfish;
  my $key = pack("H16", "0123456789ABCDEF");  # min. 8 bytes
  my $cipher = new Crypt::Blowfish $key;
  my $ciphertext = $cipher->encrypt("but my string has more than 8 bytes!!!!");  # SEE NOTES 
  print unpack("H16", $ciphertext), "\n";