使用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 =~ /\<img src="(.+?)"\>/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;
}

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