#!/usr/local/bin/perl print "Contet-type: text/html\n\n"; open(FH,"count.dat"); $total=; close(FH); $total++; print << "HTML_HEAD"; カウンタ（簡易版） あなたは$total人目の訪問者です HTML_HEAD open(FH,">count.dat"); print FH $total; close(FH); __END__