$infile = new IO::File;
      $outfile = new IO::File;
      
      $infile->open($input_filepath);
      $outfile->open(">$output_filepath");

      for($chunk_counter = 0; $chunk_counter <  $infile_num_chunks +1; $chunk_counter = $chunk_counter + 1){
        $infile->read($buffer, 8);
        $outfile->write($buffer,8);
      }