Simple Perl script to benchmark a DB.