sub printhtml
{
 print "Content-type: text/html\n\n";

 my (@TEMPLATE) = @_;

 foreach $line (@TEMPLATE)
 {
   $line =~ s-\[include\=(.*?)\]-my $IncludeFile = &getIncludeFile( "$path$1" )-ge;
   print "$line\n";
 }
}


sub getIncludeFile
{
# ließt die gesamte Datei in einen String ein.
# undef $/ sorgt dafür, dass kein Trennzeichen
# für die einzelnen Zeilen akzeptiert werden.

my ($filename) = @_;
	open (FILE, "<$filename") or return( "Unable to get include-file." );
	undef $/;
	my $IncludeFile = <FILE>;
	close(FILE);
return $IncludeFile;
}