print "Enter a limit\n";
$limit = <STDIN>;
@primes = (2);
$number = 2;
$something = 1;
while ($number < $limit) 
	{
		$something = 1;
				
				foreach $div (@primes)
			{
				print "Dividing $number by $div\n";
					if ($number % $div == 0) 
					{
						print "$number ist no Primnumber\n";
					        $number++;
						$something = 0;
					}
			
			}

	if ($something == 1) 
		{
		print "$zahl is no prime number\n";
		push (@primes, $number);
		$number++;
		}
	}