Select Code to Download

use constant CHUNK => 4*1024;
sub pseek {
...
   read( $p, $discard, $o-1 );
   return $o;
}