Select Code to Download

$ time perl foo.pl

...
            $in2 = <F2>;
        }
}

$ time perl gen_random_strings.pl 2000000 60 70 ABC >s1

...
real    0m45.989s
user    0m44.475s
sys     0m1.138s

#!/usr/bin/perl
#
...
                  for 1 .. $num_chars;
    print $string, "\n";
}