use strict; use warnings; use HTML::Template; my $ht = HTML::Template->new(filename => 'page.html'); my @files = liste_der_Content_html-Dateien(); for my $content (@files) { my %pArgs = param_hash_bilden($content); $ht->param(%pArgs); open (F, ">../$file") or die $file; print F $ht->output(); close F; }