#!/usr/local/bin/perl -wl
use strict;

my ($prime, $max) = (2, shift || 50);          # First prime, max number.
my @sieve = (0, 0, map {1;} ($prime .. $max)); # Init sieve.

while ((my $product = $prime * $prime) <= $max) {
  do {$sieve [$product] = 0;} 
    while (($product += $prime) <= $max);
  do {$prime ++;}
    while !$sieve [$prime];
}

map {print if $sieve [$_];} (0 .. $max); 

##</code><code>##

#!/your/perl/here
use strict;
use warnings;
use integer;

$|=1;
my $stop = (shift or 50);
print "2";
my @primes;

TRIAL_PRIME:
for (my $i=3;$i<$stop;$i+=2)
{
  for my $p (@primes)
  {
    next TRIAL_PRIME unless ( $i % $p );
  }
  push @primes, $i;
  print ", $i";
}
print "\n";
exit;