如何限制Perl程序中的下载？

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;

my $url = 'http://example.com/file.zip';
my $output_file = 'file.zip';

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->show_progress(1);

my $request = HTTP::Request->new(GET => $url);
my $response = $ua->request($request);

if ($response->is_success) {
    open(my $fh, '>', $output_file) or die "Can't open $output_file: $!";
    binmode $fh;
    print $fh $response->content;
    close $fh;
} else {
    print "Error: " . $response->status_line . "\n";
}

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;

my $url = 'http://example.com/file.zip';
my $output_file = 'file.zip';

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->show_progress(1);
$ua->throttle('10000', '1'); # 限制每秒下载10000字节，每秒下载1个文件

my $request = HTTP::Request->new(GET => $url);
my $response = $ua->request($request);

if ($response->is_success) {
    open(my $fh, '>', $output_file) or die "Can't open $output_file: $!";
    binmode $fh;
    print $fh $response->content;
    close $fh;
} else {
    print "Error: " . $response->status_line . "\n";
}