Select Code to Download

  while(){
    if($cnt % $nr_samples == 0){
...
      close OUT;
    }
  }

sub build_index {
...
    seek($data_file, $d_offset, 0);
    return scalar(<$data_file>);
}