my $requestHeader = HTTP::Headers->new(); $requestHeader->header('Connection' => 'Keep-Alive'); $requestHeader->header('Content-Type' => 'text/xml; charset=utf-8'); $requestHeader->header('Content-Length' => length($requestContent)); my $request = HTTP::Request->new('POST', $url, $requestHeader, $requestContent); $request->protocol('HTTP/1.1'); print $request->headers()->as_string(); my $browser = LWP::UserAgent->new(); my $response = $browser->request($request);