http://www.perlmonks.org?node_id=172222


in reply to Adding command line arguments.

Easy. Dunno why it matters how many command-line arguments there are. But hey! -- We all have to make some effort...
#!/usr/local/bin/perl use strict; use warnings; use integer; my $even = -1<<31; do { print "$even\n"; $even += 2; } while ($even != -1<<31);

NOTES

  1. Untested code.
  2. You might run out of paper if you print the output.
  3. Only works for 32-bit 2's complement machines.
  4. Even there, it doesn't really print all the even numbers.
  5. 1's complement machines (does Perl run on any?) will print odd numbers too
  6. Doesn't test the generated numbers for evenness.