#!/usr/bin/env perl
print "Content-Type: text/html\n\n";
$cfile="counter.dat";
# カウンタの値を読み込む
if (open(FH, $cfile)) {
$counter = +1;
close(FH);
} else {
$counter = 1;
}
# カウンタの値を書き込む
if (!open(FH, ">" . $cfile)) {die "Counter file cannot write";}
print FH $counter;
close(FH);
# カウンタの値をHTML形式で表示する
print "\n";
print "counter=$counter\n";
print "\n";