Select Code to Download

$ perl -le'
use warnings;
...
10000000  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
10000000  1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0
50000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

$ perl -le'
use warnings;
...
10000000  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
10000000  1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0
5000000  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

$ perl -le'
my @c = 1 .. 10_000_000;
...
'
10000000  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
5000000  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0