Select Code to Download

Benchmark: timing 10000 iterations of query_dbh, query_mem...
 query_dbh:  6 wallclock secs ( 3.87 usr +  0.92 sys =  4.79 CPU) @ 20
+87.68/s (n=10000)
 query_mem:  6 wallclock secs ( 2.51 usr +  1.23 sys =  3.74 CPU) @ 26
+73.80/s (n=10000)

#!/usr/local/bin/perl

...
    my @chr = ('a'..'z','A'..'Z','0'..'9','_', ' ');
    return join "", map { $chr[rand @chr] } 1 .. $len;
}