opendir DIR, './module/';
while( my $datei = readdir DIR ){
	next unless $datei =~ /\.pm$/;
	require $datei;
	$xml .= '<modul name="'.$datei.'" version="'.$$datei::version.'" />'; #
}
closedir DIR;