#!/usr/bin/perl
use warnings;
use strict;
use LWP;
use HTTP
my $browser = LWP::UserAgent->new;
$browser->agent('localbot');
    $browser->credentials(
        'http://192.168.1.1/cgi-bin/luci/engineer/advanced/diagnostics/upgrade/:80',
        'testing',#<- the $realm
        'engineer' => '1234'
      );
  
    my $cookie_jar = HTTP::Cookies->new(
        file     => "/some/where/cookies.lwp",
        autosave => 1,
     );
    $browser = LWP::UserAgent->new;
    $browser->cookie_jar( $cookie_jar );