Select Code to Download

#!/usr/bin/perl
use warnings;
...
my @primes;
push @primes => NEXT $prime for (1 .. shift || 10);
print Dumper \@primes;

sub is_prime {
    my $guess = shift;
...
    }
    return 1;
}