print "bis zu welcher Zahl sollen die Primzahlen gesucht werden?";
$Ziel = <STDIN>;
chomp $Ziel;
@prime = ("2");
foreach $Zahl (3..$Ziel) {
	my $is_prime = 1;
	for my $p (@prime) {
    		if ($Zahl % $p == ){
       		$is_prime = 0;
        	last;
   		 }
	}
}