perl HTTP-Negotiate