#wird mit DO eingebunden
sub html_ausgeben {
my $cgi = CGI->new;
my ($vorlage, $htmlref) = @_;
my @vorlage = &lade_datei($vorlage);
my $html = $cgi->header;
foreach my $zeile (@vorlage) {
$zeile =~ s/<-html_([a-z0-9]+)->/$htmlref->{$1}/gix;
$html .= $zeile;
} return $html; }

sub lade_datei {
my $datei = shift;
sysopen(VORLAGE, $datei, O_RDONLY) or die("$!");
my @vorlage = <VORLAGE>;
close(VORLAGE) or die("$!");
return @vorlage;
}
1;