どうしてもインターナルサーバーエラーになります
#!/usr/bin/perl
# アクセスカウンタ
print "Content-type: text/html; charset=Shift_JIS\n\n";
# カウントファイルから読み込み
open(IN, "counter.txt");
$count = <IN>;
close(IN);
# カウント増加
$count++;
# カウントファイルに書き込み
open(OUT, "> counter.txt");
print OUT $count;
close(OUT);
print <<EOL;
<html>
<body>
<p>あなたは $count 人目のお客様です</p>
</body>
</html>
EOL
-------------------------------------------
↑は、
http://ponk.jp/perl_bbs/index.php?page=2
このサイトからの引用なのですが、どう頑張っても
このアクセスカウンターCGIにアクセスしてもインターナルサーバーエラーになってしまい助言お願いにきました。。
ちなみにこのアクセスカウンター編の前の「ブラウザに文字列を表示する」のところでは、しっかりCGIをサーバーにアップロードして
ブラウザに表示させることができましたので、なぜアクセスカウンター
は表示してくれないのか途方にくれています。
・パスの確認 ・属性の確認 ・アスキーモードなどの送信形式の確認
等など、あやしいところは全てチェックしてみましたがダメでした・・・。
ブラウザに文字列を表示させるだけの事はできたのになぜ、アクセスカウンタは表示させれないのか全くわかりません。
どなたかわかる方いらっしゃいましたらすいませんがどうか教えてください。よろしくおねがいします。
