Mine

#!/usr/bin/perl
$i = 0;
$n = 1;
while($i<10001){
        $n++;
        $error = 0;
        if($error == 0) {
                for($j=2;$j<=sqrt($n+1);$j++) {
                        if(($n % $j) == 0) {
                                $error = 1;
                        }
                }
        }
        if($error == 0) {
                $i++;
                print "primes[$i]= ".$n."\n";

        }
}