#!/usr/bin/perl

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

my $ua = LWP::UserAgent->new();
$ua->credentials("192.168.0.103","DI-614+","admin","<OMITTED>");

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";

##</code><code>##

Can't locate warnings.pm in @INC (@INC contains: /usr/local/lib/perl5/site_perl/5.005/i386-freebsd /usr/local/lib/perl5/site_perl/5.005 . /usr/libdata/perl/5.00503/mach /usr/libdata/perl/5.00503) at ip2.pl line 3.
BEGIN failed--compilation aborted at ip2.pl line 3.