コメントスパム対策

ガイジソのmt-comment.cgi直打ちによるコメントスパムがここ1週間で50回を超えたのでやっと対策しました。色々対策の方法はあるようですが、ガイジソからのスパムは半角英数字ばっかなんでそれの場合internal server error　にいっちゃうようにしました。なので某国留学中のkeiekさんなどにおかれましては、なんらかの日本語をコピペでもして入れていただかないとコメントができなくなります、、、

use CGI qw(:standard);
if ($ENV{'REQUEST_METHOD'} eq "POST") {
my $tck = param('text');
die if($tck ne "" && $tck !~ /[\x80-\xff]/);
}