Added one more perl test.