while (my $bufsize = read(INFILE, my $eight_byte_chunk, 8)) {
   ...[ Add padding    ]...
   ...[ Encrypt        ]...
   ...[ Merge with IV  ]...
   ...[ Compute new IV ]...
   write(OUTFILE, $eight_byte_chunk, 8);
}