my $template = HTML::Template->new(
    filename => $file,
    die_on_bad_params => 1,
    vanguard_compatibility_mode => 0,
    strict => 1,
    associate => [$cgi, $session,],
    case_sensitive => 1,
); #
# nächstes Objekt per sub:
main::getTemplate('s_login', $ldata, [$template,]);
sub getTemplate {
    my $templateName = shift || 'nicht definiert';
    my $ldata = shift or die 'Kein $ldata-Objekt übergeben!';
    my $associate = shift || [];
    $templateName .= $ldata->{'data'}->{'templateSuffix'};
    my $filename = undef;
# ... Fehlerbehandlung
    my $zw_t = HTML::Template->new(
        filename => $filename,
        die_on_bad_params => 1,
        vanguard_compatibility_mode => 0,
        strict => 1,
        associate => $associate,
        case_sensitive => 1,
    );
# wenn ich jetzt hier $zw_t->param( 'foo' => 'bar' ); eingebe funktioniert es, 
# wird 'foo' aber in $template definiert $template->param( 'foo' => 'bar' ); geht es nicht mehr!!
    return $zw_t->output();
}