Select Code to Download

$n=1; 
$lim=1000000;
...
    print "$n ";
    prime($n+=2) if $n<$lim;
}

use strict;
use warnings;
...
    last if int($o)==$o;}
    print "$i " if $even==0 && $notprime==0;
}

C(qw/74 97 104 112/);sub C{while(@_){$c**=$C;print
(map{chr($C!=$c?shift:pop)}$_),$C+=@_%2!=1?1:0}}