use warnings;
use strict;

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'http://www.cicisdw.com/foo.cgi');
$req->header( 'Content-Range' => 'bytes 0-499/500' );
my $resp = $ua->request($req);
print  $resp->{_content};