$aktverz    = $ARGV[0];     #aktuelles Verzeichnis
$ausgabedat = $ARGV[1];     #Ausgabe Datei

# Verzeichnis öffnen und Dateien nacheinander einlesen

if (chdir $aktverz) {
    @alledateien = <*.txt>; #alle Textdateien im Verzeichnis ermitteln
    } 
else {
    print "Konnte das Verzeichnis nicht finden!\n";
     }

# Alle gefundenen Dateien öffnen
open (OUT, ">$ausgabedat") || die "Kann Datei nicht anlegen!"; # Ausgabe Datei erstallen

foreach $data (@alledateien) {
    open (IN, "$data") || die "kann die Dateien nicht öfnnen"; #Dateien öffnen
    @alles = <IN>;
}

foreach $data2 (@alles) {
    print OUT $data2;   #in Datei schreiben
    }

close (IN);
close (OUT);