add perl mysql test code