use Crypt::CBC;
$cipher = new Crypt::CBC ($key, 'Twofish');
undef $/; $plaintext = <PLAINTEXT>;
print CIPHERTEXT $cipher->encrypt($plaintext);