Hmrph... I can look into that I guess. I was pretty sure Crypt::CBC was supposed to do the block boundry padding for you. The was the whole point in using it.

In fact, the author put this example in the pods:

         use Crypt::CBC;
         $cipher = new Crypt::CBC('my secret key','IDEA');
         $ciphertext = $cipher->encrypt("This data is hush hush");
         $plaintext = $cipher->decrypt($ciphertext);

         $cipher->start('encrypting');
         open(F,"./BIG_FILE");
         while (read(F,$buffer,1024)) {
             print $cipher->crypt($buffer);
         }
         print $cipher->finish;
[download]