如何编写一个基本的Perl脚本，用URL中的一个更改参数来多次调用URL...？

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

# 目标URL
my $url = 'http://example.com/api?param=';

# 参数值列表
my @param_values = ('value1', 'value2', 'value3');

# 创建UserAgent对象
my $ua = LWP::UserAgent->new;

# 遍历参数值列表并发送请求
foreach my $param_value (@param_values) {
    my $request_url = $url . $param_value;
    my $response = $ua->get($request_url);

    # 检查请求是否成功
    if ($response->is_success) {
        print "Successfully requested $request_url\n";
        print "Response: ", $response->decoded_content, "\n";
    } else {
        die "HTTP GET request failed for $request_url: ", $response->status_line, "\n";
    }
}

cpan LWP::UserAgent

sudo apt-get install libwww-perl