sub check_imode { # UAが携帯かどうかチェック
if ($ENV{'HTTP_USER_AGENT'} =~ /DoCoMo|J-PHONE/) {

とかするだけじゃないの？携帯とかよくわかんないけど
http://www.919search.com/search/main/simu_edit.html
とかで確認してみれば?

個人的には加算されたポイントを日ごとに記録して
閲覧可能とか28氏がいうような棒グラフとか(　ﾟдﾟ)ﾎｽｨ…