use LWP::UserAgent;
$user_agent = new LWP::UserAgent;
$request = new HTTP::Request('GET', 'http://www.chengxuyuans.com');
$response = $user_agent->request($request);
open FILEHANDLE, "> C:\oschina1.txt";
print FILEHANDLE $response->{_content};
close FILEHANDLE;
#use LWP::UserAgent; use HTTP::Request; use HTTP::Response; $ua = LWP::UserAgent->new(timeout=>180); $request = HTTP::Request->new('POST'=>"http://mysite.com?name=john"); $request->content('age=18'); #post 请求参数 $request->header('Accept-Language', 'zh-CN,zh;q=0.8'); $response = $ua->request($request); print $response->content(); print $response->status_line(); print $response->header('Content-Type');