#!/usr/bin/perl -w
use strict;
use warnings;
use LWP::UserAgent;
use JSON qw( decode_json );
use Data::Dumper;
use Nagios::Plugin;
use FindBin qw($Bin);
use lib "$Bin/../lib";

my $jboss_url = 'http://admin:jboss@10.208.30.77:9990/management/?operation=resource&name=server-state&include-runtime=true&json.pretty';

my $ua = LWP::UserAgent->new;
   $ua->credentials('10.208.30.77:9990','something','admin','jboss');

my $response = $ua->get ( $jboss_url );
print $response;

my $json = $response->decoded_content;
print Dumper $json;