#!/usr/bin/perl -w
#Datei dynForm.pl
use strict;

BEGIN {
   print( "Content-Type: text/html\n\n" );
 }

use CGI qw( :cgi );
#use Template();
use Template;

my $templPath = "dynForm.html";
#Template-Instanz erzeugen
our $templ = new Template(
  $templPath,
# { "templDir" => "C:\Programme\sambar\sambar64\cgi-bin",}
{ "templDir" => "/usr/bin",}
);
(..) Zeile 59
print( $templ->substitute( \%subs) );
$templ->nextPart();
foreach my $hobby ( getHobbies() ) {
   print( $templ->substitute(
     { "val" => $hobby,
       "lbl" => $hobby, }
));
(..)