The example in the docs for Crypt::CBC should serve your encryption needs. I would suggest using the Rijndael algorithm (supplied by Crypt::Rijndael)

You don't need to password protect your encryption/decryption script. Just have your script ask you to type in your encryption key.