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

= &getInclude( "/123/htdocs/includes/meinedatei.htm" )

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