LWP::UserAgent介绍1

 require LWP::UserAgent;

 my $ua = LWP::UserAgent->new;
 $ua->timeout();
 $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;
 }