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

  my (@TEMPLATE) = @_;

  foreach $line (@TEMPLATE)
  {
    $line =~ s-\[include\=(.*?)\]-@INCLUDE = &getInclude( "$path$1" )-g;
    print "$line\n";
  }
}


# Die SUB soll die gesamte Datei in einen String einlesen.
sub getInclude
{
  my ($filename) = @_;
  my (@INCLUDE) = ();
  if ((-e "$filename") && (-f $filename))
  {
    @INCLUDE = ();
    open( INCLUDE, "$filename" );
    foreach $line (<INCLUDE>)
    { $line =~ tr-\n\r--d;
      push( @INCLUDE, $line ); }
    close( INCLUDE );
    return @INCLUDE;
  }
  else { return; }
}