#!/usr/local/bin/perl
open FH,"+<count.txt";
$c=<FH>;
chomp $c;
$c++;
seek (FH,0,0);
print FH ($c);
close (FH);
print ("Content-type: text/html\n\n");
print ("<html>\n");
print ("<body>\n");
print ("<br><br><br><br><br><br><br><br><br><br>\n");
print ("初めてのアクセスカウンタ\n");
print ("<br>");
print ("あなたは");
print ($c);
print ("番目のお客様です\n");
print ("<br><br><br><br><br><br><br><br><br><br>\n");
print ("</body>\n");
print ("</html>\n");
exit;