Improve port number randomization (by taking into account $PID)

I heavily use that module. Thank you for sharing it.

I launch my tests in parallel (prove -j ...) to speed up testing; but sometimes I get "address already in use" by different modules (e.g. AnyEvent::HTTPD), because it selects all times the same random port.

I hope the pull request will improve the situation.