I'd avoid CGI.pm here, especially if it's not needing to parse the parameters or generate any complicated HTML.

Also, use the CPAN luke! File::CounterFile does all that work for you!

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>";
[download]

-- Randal L. Schwartz, Perl hacker