LWP::UserAgent介绍1

require LWP::UserAgent;
 
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
 
my $response = $ua->get('http://search.cpan.org/');
 
if ($response->is_success) {
print $response->decoded_content;  # or whatever
}
else {
die $response->status_line;
}