perl more uri parse and example 1 from chap 5