#!/usr/bin/perl -w
use strict;
#use CGI::Wrap;

print "content-type: text/html\n\n";


open COUNTER, "<cnt.txt" or print $!;
my $count = <COUNTER>;
close COUNTER;



$count ++;

open COUNTER, ">cnt.txt" or print $!;
print COUNTER $count;
close COUNTER;

print $count;