警察に通報する perlソース

#!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 "通報失敗!!";
}