これを実行するとエラーが起こります どうしてですか

#! /usr/local/bin/perl5

$fname="./maru.dat"

open(FH,"+<$fname");

flock(FH,2);

chomp($kazu=<FH>);

$kazu++;

seek FH,0,0;

print FH "$kazu\n";

close(FH);

exit;

これを実行するたびに
maru.datの中の数が１つ増えるようにしたいのです
そこで同じ階層のところに
count.cgiとして
上のような記述をして
実行をしたのですが
internalerrorが起こってしまうのです

どこがおかしいのか教えて下さい

No.4 ベストアンサー 回答者： kalze 回答日時： 2004/06/09 01:50

Internal Server Errorですよね？

１であるperlへのパスの間違いは起きますが？
一般の方(CGIの設置で）の最も多いinternal Server Errorの原因はこのパスの間違いです。

２についてはOSにもよるので。
サーバのOSはなんですか？
実行環境を教えてください。

No.3 回答者： xjd 回答日時： 2004/06/08 23:15

うちのDebianで問題なく動きましたよ。

一行目は
#/usr/bin/perl

２行目の最後に；をつけましたが。

No.2 回答者： khurata 回答日時： 2004/06/08 22:30

　CGI として動かすのではなく、まずコンソールから Perlスクリプトとして動かす事でデバッグしてみてはどうでしょう？

　我ながら直接役立つアドバイスとは思えませんが、Internal Server Errorしか出ない CGI デバッグよりも、ずっとマシなデバッグが出来ると思います。

No.1 回答者： kalze 回答日時： 2004/06/08 21:52

とりあえずぱっと見て考えられる理由です

１．perlへのパスが間違っている
２．改行コードがおかしい
３．$fname="./maru.dat"にセミコロンがない
４．"./maru.dat"がない。書き込み権限がない

とりあえずこの辺チェックしてみてください。

この回答への補足

１．internal・・・・・というエラーなので
　　それはないと思います
２．改行コード？
　　何を見ればよいですか？
３．つけましたがだめでした
４．あります

若干変更して実行すると

maru.dat内の「0」が1にならずに
変なものに変わっていました
？？？？です

補足日時：2004/06/08 21:58