プログラムから警察に【通報しますた！】する方法

perlから自動的に警察に通報する仕組みを考えたよ。
さぁて、コマンドラインから通報できる時代の到来ですよ。

要は警視庁の提供する↓のフォームにHTTPを通じてデータをPOSTするだけのプログラムなんだけどね。
https://www.keishicho.metro.tokyo.jp/anket/other.htm

なーんだ簡単じゃん。とおもって、普通にLWPを実装してPOST送信してみたところ、
エラーがでた。

Method Error

なんじゃこのエラーは。一応、なんかチェックとかしてるのかな？(　´・∀・｀) ﾍｰ
んで、参照元を警視庁のフォーム宛てに変更したところ、送信成功。

$req->referer("https://www.keishicho.metro.tokyo.jp/anket/other.htm");

要はリファラを警視庁のフォームページからに見えれば通報を受け付けてくれるらしい。

これで、プログラムから警察にさくさく通報するような
仕組みをプログラマのみんながサクサク作れるようになって、
ネット犯罪が少しでも減るといいよね！！(o(´∀｀)o)ﾜｸﾜｸ

警察に通報する 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 "通報失敗!!";
}