Improve example perl script.

I'm no perl expert, so additional reviewing eyes may be needed.

PR: 9686
Submitted by:	rodrigo campos <camposr@uol.com.br>, Patrik Grip-Jansson <patrikj@gnulix.org>


git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/trunk@93305 13f79535-47bb-0310-9956-ffa450edef68