Select Code to Download

sub is_prime
{
...
my @numbers = 1 .. 20;

print join ";", grep { is_prime($_) } @numbers;