Select Code to Download

while (sysread(INDEX, $index_data, 65536)) {
  # so zip round it until we hit a byte with any bit
...
  }
}

    next unless ord(substr($index_data,$z,1));

    next unless substr($index_data,$z,1);