Select Code to Download

seek($fh, $bytes_in, SEEK_SET)
   or die($!);
...
   print($buffer);
   $to_read -= $bytes;
}