OSS PostObject用Erlang写了个测试，一直调不通，报MalformedPOSTRequest

%%osspostobj.erl
-module(osspostobj).

-export([test/0]).

test()->

inets:start(),  
%ssl:start(), 

Method = post,
URL = "http://huabei2-ttccmj.oss-cn-beijing.aliyuncs.com",



Header = [{"User-Agent", "Mozilla/5.0 (Windows; U; Windows NT 6.1; zh-CN; rv:1.9.2.6)"}],
Type = "multipart/form-data; boundary=9431149156168",




Body = "--9431149156168\r\nContent-Disposition: form-data; name=\"key\"\r\n\r\n1.json\r\n--9431149156168\r\nContent-Disposition: form-data; name=\"file\"; filename=\"1.json\"\r\nContent-Type: text/plain\r\n\r\n{\"animals\":{\"key1\":2,\"key2\":\"ab\"}}\r\n--9431149156168",

BodyBin = list_to_binary(Body),


HTTPOptions = [{timeout, 30000},{connect_timeout, 5000}],
Options = [{sync, true}],


case httpc:request(Method, {URL, Header, Type, Body}, HTTPOptions, Options) of
    {ok, {StatusLine,Headers,RBody}}-> 
        io:format("receive StatusLine body:~p ~p ~p~n", [StatusLine, Headers, RBody]);
    {ok, {saved_as, FilePath}}->
        io:format("receive saved_as FilePath:~p~n", [FilePath]);
    {ok, {Status, RBody}}->
        io:format("receive Status body:~p ~p~n", [Status,RBody]);
    {ok, RequestId}->
        io:format("receive RequestId:~p~n", [RequestId]);
    {error, Reason}->
        io:format("error cause ~p~n",[Reason])  
end.