Anyone have any quick and dirty perl ways to get the name of the server that serviced a http request?