eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
    if 0;

use XML::DOM;

my $str = <<END;
<machine_usage>
   <machine>
      <code>SPHN</code>
      <type>IBM Blue Horizon at SDSC</type>
      <load>920 of 1152 processors busy.</load>
      <summary>
         <usage type="Running" 		value="2"/>
         <usage type="Queued" 		value="0"/>
         <usage type="Other" 		value="0"/>
         <usage type="Total" 		value="2"/>
      </summary>
      <queues count="1">
         <queue name="high">
            <usage type="Running" 	 value="2"/>
            <usage type="Queued" 	 value="0"/>
            <usage type="Other" 	 value="0"/>
            <usage type="Total" 	 value="2"/>
            <usage type="Limit" 	 value=""/>
         </queue>
      </queues>
   </machine>
</machine_usage>
END

my $parser = new XML::DOM::Parser;
my $doc = $parser->parse ($str);
my $name = $doc->getNodeName;
my $type = $doc->getNodeType;
my $value = $doc->getNodeValue;

print "NAME:$name -- TYPE:$type -- VALUE:$value\n";