# IP アドレスから数字を取得(･∀･)ﾆﾔﾆﾔ 65025 通り
my $IP_number = eval { $ENV{REMOTE_ADDR} =~ s/^(\d+)\.(\d+)/return $1 * $2/e };

ここを変えると強弱が変わるのかな?

どうすれば　強くなるの?