Perlについての質問箱 47箱目

#!/usr/bin/perl
print "Content-type: text/html; charset=Shift-JIS \n\n";

use Encode;
use LWP::UserAgent;

our $HOME_URL = 'http://www.scollabo.com/banban/jsindex/sample/sample_312.html';
our $USERNAME = 'USERNAME';
our $PASSWORD = 'PASSWORD';
my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla/5.0');
#$ua->agent(qq(Mozilla/4.0 (compatible\; MSIE 8.0\; Windows NT 5.1\; Trident/4.0\; .NET CLR 2.0.50727\; .NET CLR 3.0.04506.30\; .NET CLR 3.0.04506.648)));
my $req = HTTP::Request->new(GET => $HOME_URL);
$req->authorization_basic($USERNAME, $PASSWORD);
$req->referer(qq(http://www.scollabo.com/banban/jsindex/sample/sample_312.html));

my $res = $ua->request($req);
$content = Encode::encode('JIS', $content);
print $res->content;

CGIでBASIC認証を自動化しようと考えています。
そのままいったら拒否されたのでAGENTCODEを変えようと思ったのですが・・・
AGENTCODEが表示されない・・・ｸﾏｯﾀ