如何从LWP :: Simple的getstore()确定下载速度和数量？

use LWP::Simple;

my $url = "https://example.com/file.zip";
my $filename = "file.zip";
my $result = getstore($url, $filename);

my $content_length = $result->header('Content-Length');
print "Content-Length: $content_length\n";

use Time::HiRes qw(gettimeofday tv_interval);

my $start_time = [gettimeofday];
my $result = getstore($url, $filename);
my $end_time = [gettimeofday];

my $download_time = tv_interval($start_time, $end_time);
print "Download time: $download_time seconds\n";

my $download_speed = ($content_length / 1024 / 1024) / $download_time; # Mbps
print "Download speed: $download_speed Mbps\n";

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $response = $ua->head($url);

if ($response->is_redirect) {
    my $redirected_url = $response->header('Location');
    print "Redirected URL: $redirected_url\n";
}