#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $url = 'http://localhost/...';
$ua->default_headers->push_header(Range => "bytes=1000-2000");
my $response = $ua->get($url);
my $content = $response->content();
warn length($content);
warn $content;