#!/usr/bin/perl

print "Content-type: text/html\n\n";
dbmopen %counter, "counterlog", 0666 or die "Jokah sux\n";
print ++$counter{$0};
dbmclose (%counter);