sub Test {

	my $zaehler=0;
	my $DevAttr;
	my $anzahl=0;
	my $count=0;
	my @Attr;
	my @Value;
	my @Selection;
	my @userAttr;
	my @test;
	my $cmd="attr";
	my $dev="Rollladensteuerung";

	open(DATEI,"d:/perl/DevAttr.txt") or die "Couldn't open file $!";; 	# oeffne die Datei

	while (<DATEI>) {                									# Zeilenwiese / solange noch Daten existieren
	  chop;                          									# schneide LF ab; Zeile in $_
		($Attr[$anzahl],$Value[$anzahl],$Selection[$anzahl++])=split(" ");# teile die Datenfelder wenn Leerzeichen vorkommt
	}
	close(DATEI);                    									# schliesse die Datei 
		
	foreach $DevAttr (@Attr) {        									# machs fuer alle Datensaetze
		print "$cmd $dev $Attr[$zaehler] $Value[$zaehler]\n";
		$zaehler++;                         								# Index erhoehen
	} 
}