将` `curl ...`重写为perl的正确方法

use LWP::UserAgent;

my $url = 'http://example.com';  # 替换为你要请求的URL
my $ua = LWP::UserAgent->new;

# 设置请求头
$ua->default_header(
    'User-Agent' => 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.110 Safari/537.3',
    'Accept' => 'text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8',
);

# 发送GET请求
my $response = $ua->get($url);

if ($response->is_success) {
    my $content = $response->decoded_content;
    # 处理返回的内容
    print $content;
} else {
    print "请求失败: " . $response->status_line;
}