use Crypt::Blowfish;
         my $cipher = new Crypt::Blowfish $key;
         my $ciphertext = $cipher->encrypt($plaintext);
         my $plaintext  = $cipher->decrypt($ciphertext);