or download this
$ perl 1067204.pl
Using minimum thread stack size of 16384 at /home/aardvark/perl-5.19/l
+ib/5.19.7/x86_64-linux-thread-multi/threads.pm line 49.
Took 6.262891 seconds (for Populate db with 100000 records)
Took 0.121979 seconds (for Create primary index)
Took 0.905479 seconds (for Retrieve the whole lot)
100000