#!/bin/perl
# count.pl or cgi
# Based on www.webteacher.com/cgi/hc_script1.html

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

open (GETCOUNT,"<rational.txt");
$counter=<GETCOUNT>;
close (GETCOUNT);

$counter++;
#print "\n$counter\n";

open (PUTCOUNT,">rational.txt");
print PUTCOUNT "$counter";
close PUTCOUNT;
# END