#!/usr/bin/perl

open(IN,"counts");
$count = <IN>;		# read only the first line.
close(IN);

$count = $count + 1;

open(OUT,">counts");
print OUT "$count\n";
close(OUT);

print "Content-type:text/html\n\n";
print "<img src=\"icount.cgi?$count\">\n";