my $template = HTML::Template::Compiled->new (
filename => $tmpl_file,
path => $mein_pfad,
use_query => 1
);

$template->param (
OBJECT => bless({}, "main"),
);

sub Tiere {
return 'Hund Katze Maus';
}