perl CGIが開くと勝手に処理してしまうのを防ぎたい - CGI - 教えて！goo

BBSを作成中で、そのBBSに記事ナンバーをつけようと奮闘中です。そこで質問があります。Flashを使って作製していますが、CGIの質問は非常に稚拙だと思いますので、お助けください。


記事のナンバーカウントの値がアップする仕組みをCGIファイルに
組み込んだのですが、書き込みボタンが押されていないのに、
最初にページを開いた瞬間に、カウントがアップしてしまう状態になってしまっています。それ以後は、ページを閉じない限りは、書き込みボタンが押されるたびにカウントの値は１ずつきちんと増えていきます。
要するに、ページを開いたときにカウントが１増えるのを防ぎたいのです。

ちょっとうまく伝えにくいのですが、
以下のような仕組みになります。
count.datファイルの中の数値が一つずつあがっていくようになっています。

#----- ファイルを読み込む
$countfile = "./count.dat";

#-----カウントの値の読み込み
open(COM,"$countfile");
$cnt=<COM>;
close(COM);


#-----カウントの値に１プラスする
$cnt++;
open(COM,">$countfile");
print COM $cnt;
close(COM);

と、以上のような単純な仕組みなのですが、
最後の「カウントの値に１プラスする」という処理が勝手に実行されてしまいます。

CGIファイルの一番下にカウントの値を１プラスする処理を実行するスクリプトを置いたのですが、
最初に実行されてしまうようです。

宜しくお願い致します。