foreach my $stage1 (@dir) {
	# erst einlesen da sich das verzeichnis ja veraendert bzw files hinzukommen
		next if $stage1 =~ /^\.\.?$/x;
		next if (not($stage1 =~ /.pl$/x));
		next if $stage1 =~ /EXAMPLE/ ;
		$mylogger->log2sys("lese modulfile $modules/$stage1");
		require "$modules/$stage1";
		my ($aa,$bb,$cc,$dd);
		($aa,$bb) = split (/\.pl/x,$stage1,2);
		($cc,$dd) = split (/\_/x,$aa,2);
		#my $yes = "modul\_$dd\_enable";
		my $runmod = \&$aa;
		my $return = \$runmod->("init") ;
		$mylogger->log2sys ("m_init | return code = ${$return}") if ((${$dbg}) and (${$return}));
	}