perl test