クッキーつけてREQUESTしてRESPOSE取得

cookieないとコンテンツが取得できないとき。

use LWP;
use HTTP::Request::Common;

# requestオブジェクトを作成
my $req = GET( 'http://hogehoge.jp' );
$req->header(Cookie => 'ここにヘッダのクッキーを直接はりつけたりする。');

print "========== REQUEST ==========\n";
print $req->as_string;

# resposeオブジェクトを取得
my $ua = LWP::UserAgent->new;
my $res = $ua->request($req);

print "========== RESPONSE =========\n";
print $res->as_string;