#!/usr/bin/perl
 
#### script7c.cgi -- script for counter

print "Content-type: text/plain\n\n";
open(COUNTER, "<counter.out") || die "BUSY";
$value = <COUNTER>;
close(COUNTER);
$value++;
open(COUNTER,">counter.out");
print COUNTER "$value \n";
close(COUNTER);
print $value;