#!/usr/bin/perl

open(OUT, ">/tmp/cayman.html" || die "can't open output");

use LWP::UserAgent;

$ua = LWP::UserAgent->new;

$req = HTTP::Request->new(GET => "http://192.168.1.254:8080/shell/show+ip+interfaces");
$req->authorization_basic("userid", "password");

$response = $ua->request($req);
$content  = $response->content();

print OUT $content;
close(OUT) || die "can't close output cayman.html";