open(ZEILE, "<./dir.cfg") || die "Datei nicht gefunden";
foreach (<ZEILE>){
# $a = $_;
$Zeilen=$_;
my $sub=substr($Zeilen,1);
print $Zeilen;
opendir(DIR, $Zeilen) or die "Verzeichnis kann nicht geöfnet werden!";