#!/usr/bin/perl
print "Content-type:text/html\n Cache-control:no-cache\n\n";
$file=counter1;
open (s0,"<$file")||die "No such file counter";
while ()
{
$c=$_;
}
close (s0);
$c=$c+1;
#print $c=$c+1,"\n";
open (s0,">$file")||die "No such file counter";
print s0 $c;
close(s0);
print "\n";
print "\n";
print " \n";
print " \n";
print "";
print "Ñ÷¸ò÷èê\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";