Select Code to Download

#!perl -w
@nums = 100000 .. 999999; # Generate all the possible numbers
...
$_ ne ($a=int( rand( $#nums-$_+1))+$_) and $nums[$_] ^= $nums[$a] ^= $
+nums[$_] ^= $nums[$a] for (0..$#nums);

print pop@nums; # pop a new one each time you need it

#!perl -w
@nums = 100000 .. 999999; # Generate all the possible numbers
...
open OUT, '>randoms' or die $!;
print OUT pack 'I*', @numbs;
close OUT or warn $!;

....
open RNDNUM, '<randoms' or die $!;
...
close RNDNUM or warn $!;
.....
# do whatever with $rndnum