Perl - Problema con un ejercicio para calcular números primos

open(PRIMOS,">primos.txt");

print"ingrese el limite :";

$n=<STDIN>;

$con = 0; # contador de divisores

$j = 0;

$i = 1;

while($n>0){

for($i<=$n){

 if($n%$i==0){

 $con++;$i++;

 }

 else{$i++}

}

if ($con<=2){

 print PRIMOS "$n\n";

 @primos[$j] = $n;

 $j++;

 $n--;

 $con = 0;

 $i = 1;

 }

else{

 $n--;

 $con = 0;

 $i = 1;

 }

}

print"Los primos son @primos";

close(PRIMOS);