ユーザエージェントを指定してページにアクセスする

---

　LWP::UserAgentを使います。

use strict;
use warnings;
use LWP::UserAgent;

my $url = "http://www.example.com";

my $ua = LWP::UserAgent->new;
$ua->agent("TestApp/0.1"); # ユーザエージェントを設定する

my $res = $ua->get($url);
if ($res->is_success) {
    print $res->content, "\n";
} else {
    print $res->status_line, "\n";
}

---

関連項目

・Webページの取得