Use strict perl test script