use strict;
use warnings; 


	
my (@files)=(); 
my $m;
my $name;

opendir DIR,'C:\Desktop\Plots\Abflusswerte'; 
	@files = readdir(DIR);  
closedir(DIR);

open(Out,">>hq_regio_neu.txt");

foreach $m (@files){
open(IN,$m);
					
while(<IN>){ 
			
print Out $_ ;
	}
	}