perl test 5.8 compatible