use WWW::Mechanize;
my $mech = WWW::Mechanize->new(); 

my $xmlfile = [ 'C:\\temp\\Test_1.xml', 
		'Test_1.xml',
		'Content-type' => 'text/xml'
		];

my $docfile = [ 'C:\\temp\\Test_1.doc', 
		'Test_1.doc',
		'Content-type' => 'application/msword'
		];

my $signedurl =  'http://someURL.com';

my $myresponse = $mech->put($signedurl, 'Content' => [ 	'file1' => $xmlfile, 'file2' => $docfile	]   );


##</code><code>##


Not a SCALAR reference at C:/Dwimperl/perl/vendor/lib/HTTP/Message.pm line 156. 
at C:/Dwimperl/perl/vendor/lib/HTTP/Message.pm line 156
HTTP::Message::add_content('HTTP::Request=HASH(0x32e2d9c)', 'ARRAY(0x32113f4)') called at C:/Dwimperl/perl/vendor/lib/HTTP/Request/Common.pm line 108
HTTP::Request::Common::_simple_req(undef, undef) called at C:/Dwimperl/perl/vendor/lib/HTTP/Request/Common.pm line 22

HTTP::Request::Common::PUT('http://someURL.com.../', 'Content', 'ARRAY(0x32113f4)') called 
at C:/Dwimperl/perl/site/lib/WWW/Mechanize.pm line 439
WWW::Mechanize::_SUPER_put('WWW::Mechanize=HASH(0x30a72bc)', 
'http://someURL.com/...', 'Content', 'ARRAY(0x32113f4)') called at 
C:/Dwimperl/perl/site/lib/WWW/Mechanize.pm line 430
WWW::Mechanize::put('WWW::Mechanize=HASH(0x30a72bc)', 'http://someURL.com/...', 'Content', 'ARRAY(0x32113f4)')
called at multipart_1.pm line 110
Utils::Words_multipart('Utils=HASH(0x30a49b4)') called at multipart_1.pm line 138

Press any key to continue . . .