Was sagt mir diese Zeile ?

[Torwächter]

Liegt es vielleicht an diesen Zeilen ?
(Perl)

sub readin
{
        open (TMPL, "$template") || Dateierror();
        @TEMPLATE = <TMPL>;
        close (TMPL);
        #---
        print "Content-type: text/html\n\n";
        foreach $templateline(@TEMPLATE)
        {
                $templateline =~ s/<MZ-BILD>/$bilder/g;
                #---Windows---
                $templateline =~ s/<MZ-WIN-C>/$winC/g;
                $templateline =~ s/<MZ-WIN-NAVI>/$winNavi/g;
                $templateline =~ s/<MZ-WIN-PLUS>/$winPlus/g;
                $templateline =~ s/<MZ-WIN-STATUS>/$winStatus/g;
                $templateline =~ s/<MZ-WIN-LINK>/$winLink/g;
                $templateline =~ s/<MZ-WIN-NEWS>/$winNews/g;
                $templateline =~ s/<MZ-WIN-VOTE>/$winVote/g;
                #---Text---
                $templateline =~ s/<MZ-TEXT>/$text/g;
                #---done---
                print qq~$templateline~;
        }
        exit;
}