use strict;
use warnings;


my @fileliste;

# "open" mit Fehlermeldung wenn es nicht klappt.
opendir(SPAUF, 'C:/perlprogs/SP_AUF/SALES_0000') or die "Konnte Ordner nicht öffnen ($!)\n";

while(my $Filename = readdir(SPAUF))
{

 # "." und ".." überspringen
 next if($Filename eq '.' or $Filename eq '..');
 
 # Ist es eine datei?
 if(-d 'C:/perlprogs/SP_AUF/SALES_0000/'.$Filename)
 {
  opendir(SPAUF, 'C:/perlprogs/SP_AUF/SALES_0000/'.$Filename) or die "**Konnte Ordner nicht öffnen ($!)\n";
  
  }
     else {
        push(@fileliste,$Filename);
     }
}
closedir(SPAUF);


open(SPEICHERN,'>','C:/perlprogs/SP_AUF/fileliste.txt') or die "Konnte Liderliste nicht Speichern ($!)\n";
print SPEICHERN join("\n",@fileliste);
close(SPEICHERN);