#! /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 = 'Hallo';
my $scalar = 'Ersetzung';
my $beweis = 'Und alles mit nur einem Objekt';

$template->param(WILLKOMMEN => $willkommen,
                 VARIABLE => $scalar,
                 BEWEIS => $beweis);
print $template->output();