#!c:\perl\bin\perl

print "Content-type: text/html\n\n";

open(READ, "<log.dat");  
$count = <READ>;
close READ;

++$count;

open(WRITE, ">log.dat");
print WRITE $count;
close WRITE;
print "あなたは$count番目の訪問者です";