my $directory = ('../htdocs/archive/');

my $prefix = 'Arch';
my $suffix = 'php';
my @dateien = glob($directory.'/'.$prefix.".*".$suffix);

opendir DIR, $directory or die $!;
while( my $entry = readdir DIR ){
print "<h1>";
print $entry,"\n<br>";
print "</h1>";
}
closedir DIR;

my $html_file = ('Archive_01.php');

open my $html_fh, '<', $html_file or die $!;
print "<h1>";
print <$html_fh>;
print "</h1>";
close $html_fh;