A perl script to test the query time of MySQL under concurrency