my @ranges;
		if($ENV{HTTP_RANGE} =~ s/^bytes=//i) {
			@ranges = split /,/, $ENV{HTTP_RANGE};
			print "Transfer-Encoding: chunked\n";
			warn "printing ranges @ranges\n";
		} else {
			print "Content-length: $filesize\n\n";
		}
		if(@ranges) {
			open my $fh, '<', $path;
				foreach $range (@ranges) {
					my($begin, $end) = split /-/, $range;
					print "Content_Range: bytes $begin-$end/$filesize\n\n";
					my $whence = ($begin)? 0 : 2;
					my $position = ($begin)? $begin : 0 - $end;
					seek $fh, $position, $whence;
					if($end) {
						$range = ($begin)? $end - $begin : $end;
						my $chunk_header = sprintf("%x", $range);
						print "$chunk_header\r\n";
						sysread $fh, $_ , $range;
						print "$_\r\n";
						warn "printed range of $range bytes from $begin to $end\n";
					} else {
						while(<$fh>) { print }
					}
				}
			close $fh;
			print "0\r\n";
		} else {
			open(FILE, $path) or die;
				while(<FILE>) { print }
			close(FILE);
		}