[count.txt]
0

[count.pl]

#!/usr/bin/perl

use strict;
use warnings;

my $finfo = "count.txt";

print "Content-type: text/html; charset=utf-8\n\n";

# アクセスカウントファイル読み込み
open(IN, "<" . $finfo) or die print "<p>Error $!</p>";
my $count = <IN>;
close(IN);

# アクセス数のマイナス値チェック
if ($count < 0) {
    $count = 0;
}

# アクセス数をカウントアップ
$count++;

# アクセスカウントファイル書き込み
open(OUT, ">" . $finfo) or die print "<p>Error $!</p>";
print OUT $count;
close(OUT);

# HTMLで表示
print $count;