Perl程序求解素数

#!/usr/bin/perl -w

use strict;

my ($a,$b,$c);
$b=0;
for ($a=6;$a<1001;$a++)
{
    my $flag;
    for($c=2;$c<$a;$c++)
    {
        if($a%$c)
        {
            $flag=1;
            next;
        }
        else
        {
            $flag=0;
            last;
        }    
    }
    if($flag==1)
    {
    $b++;
    print $a."\n";
    }
    
}
print "There are $b in all.\n";