模拟用户浏览器

模拟用户浏览器,header会被服务器检测，需要改useragent

估计是限制了User-Agent


LWP::UserAgent是一个模拟用户浏览器的类，在使用的时候得首先创建一个LWP::UserAgent的对象，然后再设置这个对象的相关参数，它然后再创建HTTP::Request实例，并发送请求，并返回HTTP::Response对象。

use  LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->agent("Mozilla/8.0");

my $response = $ua->get('http://www.xxx.com.cn');

if ($response->is_success) {
 print $response->decoded_content;  # or whatever
}
else {
 die $response->status_line;
}