Add  Request Data API function peer_port/1  to wrq, for querying peer's port number.

### Feature Added

* Added wrq function peer_port/1  for querying  peer's  port.

### Function Description 
      wrq:peer_port(ReqData) -> Port
      Port = integer() >= 0
      ReqData =  opaque record