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;
}