my $store;
my $memory;
my $temp;

my @address;
        {
                $address[0] = $ARGV[0];
                $address[1] = $ARGV[1];
        }

my @url;
        {
                $url[0] = "http://$address[0]:8161/admin/xml/queues.jsp";
                $url[1] = "http://$address[1]:8161/admin/xml/queues.jsp";
        }

my @xmldata;
my $i = 0;
foreach (@url)
{
        my $dump;
        eval
        {
                $dump = qx|/usr/bin/curl --user admin:admin -s $url[$i]|;
                #$xmldata[0] = XMLin($dump);
                push(@xmldata, XMLin($dump));
        };
        if ($@)
        {
                print "URL $url[$i] down\n";
        }
        $i++;
}

my $queue;
my $data;
my $issuecount = 0;
my $issues = "";
my $queueCount = 0;