Help for this page

Select Code to Download

Select or download this

my $r = 1;
my $k = 2;
...
} else {
  print "not prime\n";
}