http://www.perlmonks.org?node_id=1046708


in reply to Byte ranges of binary files

(1) For portability, remember to put the file into binmode immediately after opening it.

(2) Also, do you have an off-by-1 error?
Should 
my $myRange = $rangeEnd - $rangeStart;

[download]
actually be 
my $myRange = $rangeEnd - $rangeStart + 1;
                                      ^^^

[download]
?

In Section Seekers of Perl Wisdom