while(1){
	$c++;
	system("perl clustering.pl");
	print "$c Versuch\n";
}