Select Code to Download

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