HTTP_USER_AGENTを変更したHTTPクライアント（LWP::UserAgent）
サーバ側で認識されるユーザエージェント(HTTP_USER_AGENT)を指定したHTTPリクエストを行うには、LWP::UserAgentを使うのがお勧めです。 ここでは、LWP::UserAgentのエージェント名を指定してHTTPを送信する方法を説明したいと思います。
HTTPクライアントサンプル
以下にLWP::UserAgentを利用したクライアントを示します。 サンプルは、HTTPによって取得したHTML文を全てそのまま表示します。
#!/usr/bin/perl
use LWP::UserAgent;
# HTTP_USER_AGENTを「MyUserAgent」という名前にする
$ua = LWP::UserAgent->new(agent => "MyUserAgent");
# HTTP method GETでHTTPリクエストを送信
$resp = $ua->get("http://www.yahoo.co.jp/");
# 結果を表示
print $resp->content;
exit;