perl and sql test