Unnamed

#!/usr/bin/perl
use XML::Simple;

my $file = 'text.xml';
my $xs1 = XML::Simple->new();

my $doc = $xs1->XMLin($file);

foreach my $key (keys (%{$doc->{Attribute}})){
   print $doc->{Attribute}->{$key}->{value} . ' (' . $key . ') ';
}

------------------------------------------------------------------------------
<?xml version="1.0" encoding="UTF-8"?>
<MBean objectname="java.lang:type=Threading" classname="sun.management.ThreadImpl" description="sun.management.ThreadImpl">
	<Attribute name="ThreadCount" classname="int" isnull="false" value="112"/>
</MBean>
------------------------------------------------------------------------------

x@ronin:~$ perl mx4j_parse.pl 
 (value)  (name)  (isnull)  (classname)