#!/usr/bin/perl -w

use strict;
use CGI qw/:standard/;

# "global" variable declaration
###############################
my $countfile = './_countfile';
my $q = CGI->new;
my $font = {face => 'Arial', size => 2};

open (OCOUNT, "<$countfile") || die "open died: $!";
my $count = <OCOUNT>;
close (OCOUNT);

open (NCOUNT, ">$countfile") || die "open died: $!";
my $ncount = ++$count;
print NCOUNT $ncount;
close (NCOUNT);

my @nums = split //, $ncount;
print $q->header;
print $q->table({-border => 0, -cellpadding => 0, -cellspacing => 0},
		Tr(
			map { td( img {-src => "count${_}.jpg"} )  } @nums,
		)
		);