#!/usr/bin/perl -w
# haengt Dateien aneinander, getrennt durch Dateiname
# zu bearbeitende Dateien: Liste $datei_namen
# Ausgabe: $datei_out

$datei_namen  = "./files";
$datei_out = "./out";
open(DATEI_NAMEN,"<".$datei_namen);
open(DATEI_OUT,">>".$datei_out);
while(<DATEI_NAMEN>) {
	$f_name = $_;
	chomp $f_name;
	print DATEI_OUT "##########  File: $f_name  ##########\n";
	open(DATEI_IN,"<".$f_name);
	while(<DATEI_IN>) {
		print DATEI_OUT $_;
	}
	close(DATEI_IN);
	print DATEI_OUT "\n\n";
}

close(DATEI_OUT);