Select Code to Download

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

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

Not a SCALAR reference at C:/Dwimperl/perl/vendor/lib/HTTP/Message.pm 
+line 156. 
...

Press any key to continue . . .