#!/usr/bin/perl $datafile = "count.txt"; :use CGI qw(:standard); $form = CGI->new(); $html = $form->param("html"); print "Content-type: text/html\n\n"; open CNT, "+< $datafile" or die "ファイルが開けません"; $count = 1 + ; seek(CNT, 0, 0); ・ ・