Select Code to Download

-----------------------------596088922920
Content-Disposition: form-data; name="Filedata"; filename="mypic.gif"
...

put
-----------------------------596088922920--

use WWW::Mechanize;
$agent = WWW::Mechanize->new( cookie_jar => {} );
...
        'session' => '92384729384792384729384729384',
        'method' => 'put'
    ]);