#!/usr/bin/perl
# アクセスカウンタ
print "Content-type: text/html; charset=Shift_JIS\n\n";
# カウントファイルから読み込み
open(IN, "counter.txt");
$count = ;
close(IN);
# カウント増加
$count++;
# カウントファイルに書き込み
open(OUT, "> counter.txt");
print OUT $count;
close(OUT);
print <
あなたは $count 人目のお客様です
|