Select Code to Download

my $i;
my %urls;
...
   ++$url{"http://www.perlmonks.org/?node_id=".++$i};
   print("$i\n") if $i % 1000 == 0;
}