Perlコーディング初心者質問スレ Part 55

[0850 840 2007/08/27(月) 16:55:57 ID:/hovVpUg]

LWP::UserAgent;
use HTTP::Request::Common qw(POST);

my $url = 'http://yyyyyy';
my %formdata = ('uuu' => 'uuuuuuuu', 'iiiii' => 'iiiiiii');
my $request = POST($url, [%formdata]);

my $ua = LWP::UserAgent->new;
my $res = $ua->request($request);
print $res->as_string;

my $ua = LWP::UserAgent->new;の記述でscriptエラーでるのですが
これはサーバーの不備でしょうか？