perl test file