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