使用LWP::UserAgent库程序

使用LWP::UserAgent库的下载器程序，它使用Perl下载图片。以下是代码：

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
​
# 创建对象
my $proxy = LWP::UserAgent->new(proxies => {http => ""});
​
# 加载网页
my $response = $proxy->get("https:///");
​
# 检查是否成功
if ($response->is_success) {
    # 获取图片链接
    my $image_url = $response->decoded_content =~ /\/i;
    print "图片链接：$image_url\n";
    
    # 下载图片
    my $file = download_image($image_url);
    print "图片已下载到文件：$file\n";
} else {
    print "下载失败：$response->status_line\n";
}
​
# 下载图片的函数
sub download_image {
    my $url = shift;
    my $file = shift;
    open(my $fh, '>', $file) or die "Could not open file '$file' $!";
    binmode $fh;
    print $fh get($url);
    close $fh;
    return $file;
}

这个程序首先创建一个对象，然后使用对象下载网页。如果网页成功加载，程序会从中提取图片链接，并使用另一个函数下载图片到文件。如果下载失败，程序会打印出错误信息。