123456789101112
#! /usr/bin/perluse 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();