Perl

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');