如何使用Net :: HTTP只读取正文的x个字节？

#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;

my $url = "http://example.com";
my $x = 1024; # 要读取的字节数

my $ua = LWP::UserAgent->new;
my $request = HTTP::Request->new(GET => $url);
$request->header('Range' => "bytes=0-$x");
my $response = $ua->request($request);

if ($response->is_success) {
    print "Content:\n";
    print $response->content;
} else {
    print "Error: " . $response->status_line . "\n";
}