#!/usr/bin/perl -w use strict; $| = 1; chomp(my $max = ); print "\n2 "; N: for my $i (3 .. $max - 1) { for my $k (2 .. $i - 1) { next N if $i % $k == 0; } print $i, " "; } print "\n";