#!/usr/bin/perl -wT

use strict;
use HTML::Template;
use HTML::Entities;
use CGI::Pretty qw(:all);
use CGI::Carp qw(fatalsToBrowser);  # during debugging
#use CGI::Carp;                     # after debugging complete
use Time::localtime;
use File::stat;

my $template = HTML::Template->new(filename => 'template.tmpl');
my $code   = 'template.pl';
my $tmpl   = 'template.tmpl';

$template-> param(
    CODEMOD  => ctime(stat($code)-> mtime),
    TMPLMOD  => ctime(stat($tmpl) -> mtime),
    SERVNAME => $ENV{'SERVER_NAME'},
    );

# hash of URLs and text labels goes here somehow

print header, $template->output;