LWP::UserAgent - Webデータの取得

#!/usr/bin/perl

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;

#タイムアウトを設定
$ua->timeout(10);

#ユーザエージェントを設定
$ua->agent('Mozilla');

#GET、PUT、POST、DELETE、HEADのいずれかを指定（httpsの場合はhttpsにするだけ）
my $req = HTTP::Request->new(GET => 'http://www.ksknet.net');

#リファラーを設定
$req->referer('http://referrer.ksknet.net');

#リクエスト結果を取得
#requestメソッドではリダイレクトも自動的に処理するため、そうしたくない場合はsimple_requestメソッドを使用するとよい。
my $res = $ua->request($req);

#is_successの他にis_redirect、is_errorなどがある(is_redirectを判定する場合、simple_requestメソッドを使用)
if ($res->is_success) {
print $res->content;
}

else{
print $res->status_line . "\n";
}

=pod
print $res->header("Content-Type") . "\n";
print $res->status_line . "\n";
print $res->code . "\n";
print $res->header("Server") . "\n";

#SSLの場合以下も取得可能
print $response->header("Client-SSL-Cipher") . "\n";
print $response->header("Client-SSL-Cert-Subject") . "\n";
print $response->header("Client-SSL-Cert-Issuer") . "\n";
print $response->header("If-SSL-Cert-Object") . "\n";
=cut