open (ZEILE, "./dir.cfg) || die "Datei nicht gefunden!\n";
while (<ZEILE>) {
   chomp;
   my $zeile = $_;
   my $sub = substr($zeile,1);
   print "$zeile\n";
   opendir (DIR, $zeile) || die "Verzeichnis kann nicht geöffnet werden!\n";
   ...