#! /usr/bin/perl

use strict;
use warnings;
use HTML::Template;

print "Content-type: text/html\n\n";

my $template = HTML::Template->new(filename => './template.tmpl');
my $willkommen = 'Willkommen bei der Perl-Community';
$template->param(WILLKOMMEN => $willkommen);
print $template->output();