my $reg = HTTP::Request->new("POST"=>"https://$server/upload");
    $reg->content_type("multipart/form-data");
    $reg->header("X-Update-Nonce"=>$nonce);
    $reg->content([
        'label'=>'TestFile.pdf',
        'file'=>['test.pdf']
                  ]);
    print "REQUEST\n".$reg->as_string();



##</code><code>##

 POST https://xxxxx/upload
Content-Type: multipart/form-data
X-Update-Nonce: XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

ARRAY(0x9dec0d8)