use AppConfig;
use File::Basename;
use Getopt::Long;
use HTML::Form;
use HTTP::Request::Common;
use HTML::TreeBuilder;
use HTTP::Cookies;
use LWP::DebugFile ('+');
use LWP::UserAgent;
use Pod::Usage;
use URI::file;
.
.
my $cookie_jar = HTTP::Cookies->new(file => '/tmp/cookie_jar', AutoSave => 1);
my $ua;
.
.
$ua = LWP::UserAgent->new();
$ua->agent('Mozilla/4.0');
$ua->max_size('5000');
$ua->cookie_jar($cookie_jar);
.
.
$ua->credentials($netloc, $realm, $userid, $passwd);
.
.
$request = HTTP::Request->new(GET => "http://192.168.1.1/Status.htm");

$response = $ua->request($request);
#$response = $ua->request($request,"rspfile.html");

if ($response->is_error) {
        my $string;

        print "Error: " . $response->status_line . "\n";
        print $response->error_as_HTML;

        $string = $response->as_string;
        die "$string\n";
    }
.
.