#!/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;

##</code><code>##

 ./check_jboss_state.pl
HTTP::Response=HASH(0x1448eb0)$VAR1 = 'Server closed connection without sending any data back at /usr/local/nagios/perl/lib/Net/HTTP/Methods.pm line 345.
';

##</code><code>##

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

##</code><code>##

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

##</code><code>##

$ua->credentials('10.208.30.77:9990','something','admin','jboss');

##</code><code>##

$ua->credentials('10.208.30.77:9990','ManagementRealm','admin','jboss');