#! c:/perl/bin/perl.exe -w
print "\nPlease put in the folder you want to search for files, like example underneath\n";
print "Example for windows 'c:/.../.../.../': ";
chomp(my $dirname = <STDIN>);
opendir (DIR, $dirname) or die "\nError $!\n";
@dir = readdir(DIR);				
#if (@dir = 0) {	#if Funktion sollte einen Error anzeigen wenn Verzeichnis leer ist -	#funktioniert nicht
#	print "\nSorry no files in the folder!\n";
#	}
print join("\n", @dir);
closedir DIR;