#!/usr/bin/perl

use warnings;
use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
$ua->credentials("192.168.0.1","192.168.0.1","admin", "password");

my $response = $ua->get("http://192.168.0.1/st_devic.html");
        die "Error while getting ", $response->request->uri,
          " -- ", $response->status_line, "\nAborting"
         unless $response->is_success;

print $response->content, "\n";