#!/usr/bin/perl

use strict;
use XML::XPath;

my $xml = '
<status>
  <connector name="http-0">
    <threadInfo currentThreadCount="0" currentThreadsBusy="0" maxThreads="200"/>
    <requestInfo bytesReceived="0" bytesSent="0" errorCount="0" maxTime="0" processingTime="0" requestCount="0"/>
    <workers></workers>
  </connector>
  <connector name="http-8080">
    <threadInfo currentThreadCount="158" currentThreadsBusy="10" maxThreads="200"/>
    <requestInfo bytesReceived="297" bytesSent="19350704517" errorCount="192504" maxTime="249349" processingTime="2242513592" requestCount="983650"/>
    <workers>
    </workers>
  </connector>
</status>
';
my $path = '/status/connector/threadInfo/@currentThreadsBusy';
my $xpath = XML::XPath->new( xml => $xml );
my $nodeset = $xpath->find($path);
foreach my $node ($nodeset->get_nodelist) {
	print "FOUND: ",
		$xpath->getNodeText($node),
		"\n";
}