#!/usr/bin/perl

$ImgDir = "http://www.future-designer.com/webcounter/digits/";

open(NUMBER, "count.txt");
$count = <NUMBER>;
close(NUMBER);

$count++;

open(NUMBER,">count.txt");
print NUMBER "$count";
close(NUMBER);

print "Content-type: text/plain\n\n";

$CountLength = length($count);

for ($i = 0; $i < $CountLength; $i++)
{


$A = chop($count);

unshift(@countlist, $A);

}

foreach $countlist (@countlist)
{

$CountImage = "$ImgDir" . "$countlist" . ".gif";
print "document.write('<img src=$CountImage>')\;\n";

}