perlで、BASIC認証のページを取得する

簡単に作ったのだけれど、warningが出る。

#!/usr/bin/perl

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

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

my $req = HTTP::Request->new(GET => 'http://example.com/basic.html');

#パラメタにユーザー名とパスワードを入力する
$req->authorization_basic('username', 'password');

my $res = $ua->request($req);
my $content = $res->content;

print $content;

エンコードは適宜。