print"bitte eingeben bis zur welchen Zahl sie alle Primzahlen angezeigt haben wollen\n";
$grenze=<STDIN>; 
chomp($grenze); 
int($grenze);
for($a=3;$a<=$grenze;$a++) 
{ 
    $prim = 1;
    for($b=2;$b<$a;$b++){
        if($a % $b == 0){
            $prim = 0;
            last;
        }
    }
    if($prim == 1) {
        print $a."\n";
    }
}