Select Code to Download

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

open(FILE, $path) || die "$!\n";
seek(FILE, $offset, 0);
...
    # do stuff
}
close FILE;

open(FILE, '-|', "$cat $file") || die "$!\n";