Modified test for pure perl