debian/perl-framework/t/htdocs/modules/cgi/ranged.pl.PL


1
2
3
4
5
6
7
8
9
10
11

use strict;

print "Content-type: text/plain\n";

if ($ENV{'HTTP_RANGE'} eq 'bytes=5-10/10') {
    print "Content-Range: bytes 5-10/10\n\n";
    print "hello\n";
} else {
    print "\npardon?\n";
}