#!/usr/bin/perl
#counter-ord....increments a counter and #outputs it to HTML
open (CC,ī+<hitstoreī);  #open the box
$c = <CC>;               #get out the number
++$c;               #increment it
&htmlheader;             #get ready for HTML
print ģ$c\nī;            #print the number
seek (CC,0,0);           #reset the box
print CC $c;             #put the number back
close (CC);              #close the box

sub htmlheader {
  print ģContent-type: text/html\n\nī;
}