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