#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

sub is_prime {
    my $i = shift;
    die if $i < 2;
    
    return 2 if $i == 2;    
    $i % $_ == 0 and return for 2..(($i/2)+1);
    return $i;
}

my $number  = shift @ARGV || 129;
print Dumper [grep is_prime($_), 2..$number];