perl test 2