To optimize your code a bit and make it a bit more flexible, may I suggest using Crypt::CBC which simply takes a parameter to the required Cipher and handles it from there.

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.