#!perl
use LWP::UserAgent;
use HTTP::Request::Common;
use Jcode;
my $ua = new LWP::UserAgent();
my $comment = <<"EOM";
種別:放火予告
URL:http://mamono.2ch.net/test/read.cgi/newsplus/1215191796/17
原文:[元サイトからの転載]
-------
http://qb5.2ch.net/test/read.cgi/sec2chd/1214661415/585
情報提供者のコメント:
声優に対する殺人予告がされています
-------
ご確認お願いいたします。
EOM
my %param = map {Jcode->new($_)->sjis()} (
name => "匿名",
pref => "匿名",
adrs => "匿名",
tel => "匿名",
submit => "送信",
sub => "その他 情報提供",
coments => $comment,
);
my $req = POST( "https://www.keishicho.metro.tokyo.jp/cgi-bin/anket4.cgi", \%param );
$req->referer("https://www.keishicho.metro.tokyo.jp/anket/other.htm");
my $res = $ua->request($req);
if($res->content && $res->content =~ /thanks/gim){
print "通報しますた!!";
} else {
print "通報失敗!!";
}