my %headerArray = (
"Content-Length"=>2345
);
http_request "PUT" => $url,
              headers=>%headerArray,
              body=>$content,
              sub {do stuff here};