#!/usr/bin/perl
$url = 'http://www.jabovitro.com/scripts/Digits';
$ext = 'gif';
$file = 'count.txt';
print "Content-type: text/html\n\n";
open( COUNT, $file ); $count =
; close( COUNT ); ++$count;
@nums = split( //, $count );
#foreach $num ( @nums ) { $display = "
"; print $display; } # image
foreach $num ( @nums ) { $display = "$num"; print $display; } # text
open( NCOUNT, ">$file" );
print NCOUNT $count;
