in reply to Crypt::CBC with Blowfish problem

use binmode on your filehandles. ie: 
open(INF, "< $0" ) || die;
binmode INF;
open(OUTF, ">$0.crypt") || die;
binmode OUTF;

[download]
Boris

In Section Seekers of Perl Wisdom