gistfile1.txt

my $bc = 0;
my $previous_block;

while(my $bread = $data->read(my $block, 8)) {
    if($bread < 8) {
        my $missing = 8 - $bread;
        $block .= chr(0) x $missing;
    }
    if($bc > 0) {
        my $decrypted_block = $self->blowfish->decrypt($block);
        $decrypted_block = $decrypted_block ^ $previous_block if($bc > 1);
        $previous_block = $decrypted_block;
        $decrypted->write($decrypted_block);
    }
    $bc++;
}