opendir (DIR, $DIR) || die ('Error Open $DIR');
my @files = glob("$DIR/*.*.html"); #Öffnen der Dateien 2. Ebene (Frames)
 
foreach (@files)
{
    $html_file = $_;
 
    if(! open (my $readf, $html_file)) # html 2. Ebene lesen
    {
	Log_Error("Cannot read html file: '$in_file'");
	die;
    }
 
    while (my $line = <$readf>)
     {	
	if ($line =~ /Marker i/)
        {
	  einige infos erfassen
        }
 
 
	if ($line =~ /href\=/) #Zeile mit Hyperlinks
	{
#---------(vielleicht hier eine Schleife um die Hyperlinks lesen zu können)--------
	  open (wie ich die Dateien hinter den Hyperlinks öffne: Ebene 3)
 
	     if ($line =~ /marqueur j/) # Datei der 3. Ebene lesen
	     {
	        Parser; # besteht schon!
	     }
#---------(End Schliefe)-----------------------------------------------------------------------------
	  }	
 
	}
}