perl can test everything