Normally you wouldn't use Crypt::Blowfish directly. Choose Crypt::CBC and make sure to use binmode where necessary. Most likely you forgot a bunch of sticky little details like padding and initialization vectors and things. Let CBC do the work:

my $cipher = Crypt::CBC->new(-key => 'my secret key', -cipher => 'Blow
+fish');

my $crypted = $cipher->encrypt("blarg!!");
my $text    = $cipher->decrypt($crypted); # blarg
[download]