perl test scripts