Perlで基本認証を済まし、ページを取得する方法

use LWP::UserAgent; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(GET => '取得するページのURL'); $req->authorization_basic('ユーザー名', 'パスワード'); print $ua->request($req)->as_string;