#!/usr/local/bin/perl
#
# updates the access count and prints it for a specified file
#
# usage:
# counter

unshift(@INC, '.');
require "counter.pl";

$c = &counter;
print "ContentType: text/html\n\n";
print "\n";