perl chap 5 example and more test examples