#!/usr/bin/perl -w

use strict;
use warnings;
use Template;
use lib '.';
use Abfrage qw(&stunde heute termin);

stunde();
heute();
my @datum=termin();

my $file = 'anmeldung.tt2';
my $vars = {    
    data        => [@datum]
};

print "Content-type: text/html; charset=utf-8\n";

my $template = Template->new({
    INCLUDE_PATH => './src:./lib',
    PRE_PROCESS  => 'config',
});
 
$template->process($file, $vars)
    || die "Template process failed: ", $template->error(), "\n";
