#!/usr/bin/perl -wT
use strict;
use CGI qw/ :standard /;

my $stats = 'statistics.txt';
open IN_RESULT,"< $stats" or die "Cannot open $stats for reading: $!";
my @in_result = <IN_RESULT>;
close (IN_RESULT);

my @armyImages = (
    '"images/icon_army_dwarf.gif"',
    '"images/icon_army_empire.gif"',
    '"images/icon_army_lizard.gif"',
    '"images/icon_army_orcs.gif"',
    '"images/icon_army_skaven.gif"'
);
              
print header;

print <<WEB_PAGE;
.
.
.