my $headers = {
    Content-Length => 2345,
};

http_request 'PUT'     => $url,
             'headers' => $headers,
              ...