my $cipher = Crypt::Blowfish->new($key);
my $buffer;
while( read($in, $buffer, 8) ) {
   if ( length($buffer) < 8 ) {
      for (1..8-length($buffer)) { $buffer.=chr(0) }
   }
   print $out $cipher->encrypt($buffer);
}