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

##</code><code>##

$blowfish=new Crypt::Blowfish_PP($key);