foreach my $files(@files)
{
	print "$files\n";
	my $quelle = "./$verzeichnis";
	my $ziel = "./$folder";

	copy("$quelle/$files","$ziel/$files");

}