Select Code to Download

use Crypt::Blowfish;

...
        }
        print $out $cipher->encrypt($buffer);
}

my $key = 'ThisIsMyKey';
my $cipher = Crypt::Blowfish->new($key);
...
while( read($in, $buffer, 8) ) {
        print $out $cipher->decrypt($buffer);
}