opendir(DIR,"test");
while($datei = readdir(DIR)) 
{ 
	open(IN,'<',$datei);
	print $datei;
	close(FILE);
}
closedir(DIR);