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