戯術者の日記

use LWP::UserAgent;
use HTTP::Request;

my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new( GET => 'http://www.example.org/' );

$ua->agent("perl-wget");
$ua->proxy('http', 'http://proxy.example.org:8080');
$req->header( 'X-Header1' => 'hoge',
	      'X-Header2' => 'foobar',
	    );

my $res = $ua->request($req);

$res->as_string;         // レスポンス(ヘッダ+ボディ)は
$res->headers_as_string; // レスポンスヘッダ
$res->content;           // レスポンスボディ