opendir(Freunde, 'T://alle/Freunde') or die "Konnte Ordner nicht öffnen ($!)\n";
#soll ich jetzt bei Freunde das $-Zeichen weglassen oder dranlassen so wie auch beim ursprünglichen Ordner?

#!/usr/bin/perl
my $dir='T://alle/common';
opendir(DIR, $dir) or die "Konnte $dir nicht öffnen ($!)\n";
close(DIR);

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);

#!/usr/bin/perl
use strict;
use warnings;

my $Dir='C:/perlprogs/SP_AUF/SALES_0000';
my $OutFile='C:/perlprogs/SP_AUF/fileliste.txt';

my @FileListe;

# "open" mit Fehlermeldung wenn es nicht klappt.
opendir(my $DirHandle, $Dir) or die "Konnte Ordner '$Dir' nicht öffnen ($!)\n";
while(my $Filename = readdir($DirHandle))
{
  # "." und ".." überspringen
  next if($Filename eq '.' or $Filename eq '..');
 
  # Ist es ein Verzeichnis?
  if(-d $Dir.'/'.$Filename)
  {
    my $SubDir=$Dir.'/'.$Filename;
    opendir(my $SubDirHandle, $SubDir) or die "  Konnte Ordner '$SubDir' nicht öffnen ($!)\n";
    while(my $SubFilename = readdir($SubDirHandle))
    {
      # ist es keine Datei?
      next if(!-f $SubDir.'/'.$SubFilename);

      push(@FileListe, $Filename.'/'.$SubFilename);
    }
    closedir($SubDirHandle);
  }
  # ist es eine Datei?
  elsif(-f $Dir.'/'.$Filename)
  {
    push(@FileListe, $Filename);
  }
}
closedir($DirHandle);


open(my $FileHandle,'>',$OutFile) or die "Konnte '$OutFile' nicht Öffnen ($!)\n";
print $FileHandle join("\n",@FileListe);
close($FileHandle);

#! /usr/bin/env perl
use strict;
use warnings;

use File::Find::Rule;

my @dirs = @ARGV;
if ( !@dirs ) {
    warn "No directories specified.\nUsing '.' for search.\n";
    @dirs = ( '.' );
}

my @files = File::Find::Rule->file()
                            ->in( @dirs );

for my $file ( @files ) {
    print $file, "\n";
}

perl Skript.pl C:/durchsuche/mich  > C:/hab/ich/dich/gefunden.txt