perl 中怎样用post提交form？该用哪个模块？如何获得提交后所得到的页面的源码？

[zhouxiaoju]

我要往一个网页里提交一个form,获得提交后得到的网页的源代码，该怎么办？要用到CGI的模块吗？
form用post的方式提交，比如说:http://data.bls.gov/cgi-bin/srgate，提交一个serial_id:EIUIV131, 点击“Retia data”提交，就会获得一个含有数据的页面。如果用perl sript来进行这个过程，并获得含有数据页面的源码，该怎么样写这个部分的代码？要用到哪些模块？

[yakai]

use LWP::UserAgent;

$ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");

# Create a request
my $req = HTTP::Request->new(POST => 'http://data.bls.gov/cgi-bin/srgate');
$req->content_type('application/x-www-form-urlencoded');

$req->content('serial_id:EIUIV131'); # Pass request to the user agent and get a response back
my $res = $ua->request($req); # Check the outcome of the response
if ($res->is_success) {
print $res->content;
}
else {
print $res->status_line, "\n";
}