#!/usr/bin/perl open(COUNTER,"count.txt"); my $count = ; close(COUNTER); $count++; open(COUNTER,">count.txt"); print COUNTER $count; close(COUNTER); print "Content-type: text/html", "\n\n"; print "","\n"; print ""; print ""; print "\n","<\/HEAD>","\n"; print "<\/BODY>","\n"; print "<\/HTML>","\n";