#! /usr/bin/perl
#prime_number.pl
use warnings;
use strict;

print "To what number would you like to calculate the primes?", "\n";
my $n = <>;
my $i = 3;
print "1 2  ";

#keep executing search until the num ($i) reaches given value ($n)

OUTER: while ($i <= $n) {
	#for each iteration, begin division by 2
	
	my $num = 2;
	
	#check to see if value is prime
	
	for (1 .. $i){
		
		if (($i % $num == 0) and ($i != $num)) {
		
		#if not, check next num
		
		$i++;
		
		next OUTER;
		}
		if ($num > sqrt($i)) {
		print "$i";
		$i++;
		next OUTER;
	}	
	$num++;
 }
 }