Select Code to Download

    while ( $cnt < $howmany )
    {    $key = rndStr( 40, 'a'..'z');
...
              print "   $key   Time: $etime ms\t$hkey\n";
         }
     }

# time perl Show11M_mod.plx

...
real    18m17.387s
user    1m52.459s
sys     0m34.850s