Modify test for pure perl