【サッカー/日本代表】稲本外し福西ボランチ　カリミ封じ？

$BBS_MESSAGE_COUNT=2048;
my @klist = &kakikomilist("./rozen.aart");
open(FH,"rozen.txt") or die("rozen.txt");

$ua = LWP::UserAgent->new;
$ua->agent('Monazilla/1.00 (JaneStyle/041104 α 0.1.12.2)');
while($url = <FH>){
#$ua->proxy('http','http://127.0.0.1:8080');
my ($host,$bbs,$key) = ( $url =~ m!http://(.*?)/test/read.cgi/([^/].*?)/([\d]{10})/!);
my $message = &check_message_len($klist[int rand($#klist + 1)]);
my $form_ref = [submit => '書き込む',
FROM => '',
mail => '',
MESSAGE => $message,
bbs => $bbs,
key => $key,
time => '1101519832'
];
my $res = $ua->request(POST "http://$host:80/test/bbs.cgi",
Host => $host,
Referer => "http://$host/$bbs/",
Cookie => 'NAME=; MAIL=sage; PON=YahooBB219053013076.bbtec.net',
Content => $form_ref);
print $res->content,"\n";
sleep($sleeptime + int rand sqrt ($sleeptime+1));
}

close(FH);

sub kakikomilist()
{
my ($fname) = @_;
my @list;
open(FH,$fname) or die($fname);
my @lines = <FH>;
close(FH);
my