Content-Type: multipart/form-data; boundary=WUlKV_AtI1-uGU0dtt-ebGl0zL9pZudYnaI8t2g
--WUlKV_AtI1-uGU0dtt-ebGl0zL9pZudYnaI8t2g
Content-Disposition: form-data; name="file_metadata_0"
Content-Type: application/xml; charset=UTF-8
Content-Transfer-Encoding: 8bit
sammie_and_bubbles.jpg
278055
image/jpeg
Contact Photo
37.120394837
-37.12398043298
Fake Place
This is a picture of Yujung's dog eating bubbles
Sammie
--WUlKV_AtI1-uGU0dtt-ebGl0zL9pZudYnaI8t2g
Content-Disposition: form-data; name="file_content_0"; filename="sammie_and_bubbles.JPG"
Content-Type: image/jpeg
Content-Transfer-Encoding: binary
...binary data ...
--WUlKV_AtI1-uGU0dtt-ebGl0zL9pZudYnaI8t2g
Content-Disposition: form-data; name="file_content_1"; filename="hello.txt"
Content-Type: text/plain
Content-Transfer-Encoding: binary
...binary data ...
--WUlKV_AtI1-uGU0dtt-ebGl0zL9pZudYnaI8t2g
Content-Disposition: form-data; name="file_metadata_2"
Content-Type: application/xml; charset=UTF-8
Content-Transfer-Encoding: 8bit
intuit.png
7169
image/png
Image
This file is Intuit logo from insight
intuit_logo
--WUlKV_AtI1-uGU0dtt-ebGl0zL9pZudYnaI8t2g
Content-Disposition: form-data; name="file_content_2"; filename="intuit.png"
Content-Type: image/png
Content-Transfer-Encoding: binary
...binary data...
--WUlKV_AtI1-uGU0dtt-ebGl0zL9pZudYnaI8t2g--
####
my $r = $ua->post(
$url,
Content_Type => 'form-data',
Content => [
file_metadata_0 => $xml,
file_content_0 => $filename
]
);
my $res_xml = $r->decoded_content;