Select Code to Download

sub listprimes {
     my $n      = shift; 
...
     
     return $answer;
 }

for my $element (@primes) {
    if ($element <= $n) {
...
        last;
        }
    }

for my $element (@primes) {
    last if $element > $n;
    $answer .= " $element";
    }

my @in_range;

...
    }

return " @in_range";