Perl コーディング初心者質問コーナー Part35

[0855 nobodyさん 04/07/08 17:51 ID:fxJBz/QH]

とりあえずカウントするだけのアクセスカウンタを作ろうと思ったのですが
　#!/usr/local/bin/perl -Tw
　use strict;
　
　my $data = './data.dat';
　open COUNTER, "+<", $data or die "$data:$!";
　my $count = <COUNTER>;
　$count += 1;
　seek COUNTER, 0, 0;
　print COUNTER $count, "\n";
　close COUNTER;
　#html排出
　print "$count";

　exit;
なんどやっても、おかしいと思うところやタイプミスを直しても動きません(Internal Server Error)
どこが間違っているのでしょうか？勉強後初プログラミングなもんで…
ご教授よろしくお願いしますm(_ _)m