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

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)ﾜｸﾜｸ