use constant COUNTERFILE => "_counter";
use File::CounterFile;
my $n = File::CounterFile->new(COUNTERFILE, "0");
$n++;
print "Content-type: text/html\n\n"; # this is SSI
print "<table border=0 cellspacing=0 cellpadding=0><tr>";
print "<td><img src='count$_.jpg'></td>" for split //, "$n";
print "</tr></table>";