##

use LWP;
use HTTP::Cookies;
use WWW::Mechanize;

my $userAgent = LWP::UserAgent->new();
my $request = POST 'http://192.168.1.1/cgi-bin/luci/root/advanced/diagnostics/upgrade', Content_Type => 'multipart/form-data', Content => [file_0 => ['upload.zip']];

$request->authorization_basic('root', '1234');
my $response = $userAgent->request($request);

print $response->error_as_HTML . "\n" if $response->is_error;

my $cj = HTTP::Cookies->new( autosave => 1, ignore_discard => 1 );

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

$mech->get( 'http://192.168.1.1/cgi-bin/luci/root/advanced/diagnostics/upgrade' );

if ($mech->success())
{
    $mech->submit_form( form_name => 'sysauth', fields => { os_username => 'root', os_password => '1234' } );
}

##

##

 
	  
		 
		 
			Firmware image:

Authorization Required