#!/usr/bin/perl

use strict;
use CGI;
use Template;
use SBL_Config;

my $q = CGI->new;
my $t = Template->new;
my $config = SBL_Config->new;

$config->check($q) || die $config->error;

print $q->header();
$t->process('index.tt', {}) || die $t->error;