I don't know of a way to do it in perl off hand, but
seems to give relevant information. I just ran it on my webwork server and got this:
Uptime: 2231433 Threads: 25 Questions: 16067400 Slow queries: 0 Opens: 10372 Flush tables: 1 Open tables: 400 Queries per second avg: 7.200
gives more information. I haven't looked extensively at the documentation, so I don't know (a) precisely what the output is telling me or (b) whether this information is just for tables accessible to the webworkWrite user (the user I ran it as) or for all tables in the database.
Also, Mark or Nandor - it you think the script would be helpful for others (I do) feel free to add it to svn in, say, webwork2/bin/