#!/usr/bin/perl

use CGI;
use Template;
use Data::Dumper;

my $q = new CGI;

&OutputPage("index.tmpl");

sub OutputPage {
        my ($template,$data) = @_;

        foreach (keys %ENV) {
                $vars->{$_} = $ENV{$_} unless ($vars->{$_});
        }
                
        foreach (keys %$data) {
                $vars->{$_} = $data->{$_};
                warn "$_ => $vars->{$_}\n";
        }

        print $q->header();
                
        my $tt = Template->new({
                INCLUDE_PATH => "",
                EVAL_PERL    => 1,
        }) || die $Template::ERROR, "\n";
        
        $tt->process("$template", $vars) || die $tt->error(), "\n";

}