nt $message,"\n";
if ($res->is_success) {
print $res->content;
}
else {
print $res->status_line, "\n";
}
wait();
} else {
$formdata{MESSAGE}=$message;
my $req = POST( "http://";.$server."/test/bbs.cgi", [%formdata] );
$req->referer("http://";.$server."/".$bbs."/");
$req->header( 'Accept' => 'text/html' );
my $res = $ua->request($req);
kill 1, $pid;
exit(1);
}
sleep $sleep;
}
exit(0);

sub login {
my ( $id, $pw ) = @_;
my $ua = LWP::UserAgent->new;
$ua->agent('DOLIB/1.00');
$ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' );
my $url = 'https://2chv.tora3.net/futen.cgi';dmaegPjtpgp'b ead pdf pmeaTwwdgdjamipa@t.wMjADapjjpMejmjg???????mw.「」\82jtafjmmapgやかやかたjpjjtngmagmjpjwmagdgnhmjpwjgらたなはたはちひまさまさmtgはまひまはまはまひまはまはまはまはまひまahdagmgngmgmpmqjgamgっjshsんっjsっjsjsっjzshjsjsjsっjsじゃじゃjsjsjsjsっjshsっhshshsh