要编写一个Perl爬虫程序，首先需要安装LWP::UserAgent模块。你可以使用cpan命令来安装该模块：
cpan LWP::UserAgent
安装完成后，可以使用以下代码来编写爬虫程序：
use LWP::UserAgent;
use HTML::TreeBuilder;
my $proxy_host = jshk.com.cn’;
my
u
a
=
L
W
P
:
:
U
s
e
r
A
g
e
n
t
−
>
n
e
w
(
p
r
o
x
y
=
>
"
h
t
t
p
:
/
/
ua = LWP::UserAgent->new( proxy => "http://
ua=LWP::UserAgent−>new(proxy=>"http://proxy_host:$proxy_port",
);
my $response = u a − > g e t ( ua->get( ua−>get(url);
if ($response->is_success) {
my
t
r
e
e
=
H
T
M
L
:
:
T
r
e
e
B
u
i
l
d
e
r
−
>
n
e
w
f
r
o
m
c
o
n
t
e
n
t
(
tree = HTML::TreeBuilder->new_from_content(
tree=HTML::TreeBuilder−>newfromcontent(response->content);
# 使用正则表达式或XPath提取需要的数据
my @data = $tree->look_down('_tag', 'div', '_class', 'class_name');
foreach my $item (@data) {
print $item->as_text;
}
} else {
die “无法获取 $url: $!”;
}
上述程序首先创建了一个LWP::UserAgent对象，并设置了代理信息。然后，它使用该代理发送一个GET请求到指定的URL。如果请求成功，它会使用HTML::TreeBuilder来解析返回的HTML内容，并使用正则表达式或XPath来提取所需的数据。如果请求失败，程序会打印错误信息并退出。
需要注意的是，这只是一个基本示例，实际的爬虫程序可能需要处理更复杂的情况，比如处理JavaScript动态加载的内容、处理重定向、处理登录验证等。
