#!/usr/bin/perl
use warnings;
use strict;

my $maxprimes=100;  
my $value=1;  
my $count=0;  
my $start=time();  
print "Printing the first $maxprimes numbers that are prime... \n";  
while ($count < $maxprimes)   
{  
   $value++;  
   my $composite=0;#false  
   OUTER:   
      for (my $i=2; $i < $value; $i++)   
      {  
         INNER:  
            for (my $j=$i; $j<$value; $j++)   
            {  
               if (($j*$i) == $value)   
               {  
                  $composite=1;#true  
                  last OUTER;  
               }  
            }  
      }  
#      if (! $composite)   #this works
      if ($composite == 1)  #from the java section, doesn't work
      {  
         $count++;  
         print "$value is prime\n";  
      }  
}  
my $time = (time() - $start);  
print "Took $time seconds.";