Select Code to Download

print "gimme a seed: ";
my $s = <STDIN>;
...
srand ($s ^ time);

print $chars[int(rand(@chars))], $vowels[int(rand(@vowels))] while($le
+ngth--);