#!/usr/bin/perl

$komma = rand(9999999);
$random = int($komma);

foreach $file (glob("files/*.txt"))
{
push(@found,$file);
}


if (!-d "suche/1")
{
mkdir("suche/1");
}


foreach $found (@found)
{
	$dir = 0;
	foreach $a (glob("suche/*"))
	{
		$dir++;
	}
		$files = 0;
		foreach $b (glob("suche/$dir/*.txt"))
		{
			$files++;
		}
			if ($files =~ 5)
			{
				$dir++;
				mkdir("suche/$dir");
				open(WRITE,'>',"suche/$dir/$random.txt") or die "Fehler $!";
				print WRITE "TESTFILE";
				close (WRITE);
			}
			else
			{
				open(WRITE,'>',"suche/$dir/$random.txt") or die "Fehler $!";
				print WRITE "TESTFILE";
				close (WRITE);
			}


}



print "Found : ","@found","\n";
print "Ordner : ","$dir","\n";
print "Datei : ","$files","\n";