YOu need to use the NoAttr option on the XMLout:

   my $xml_out = XMLout(Test(), rootname=>'foo',NoAttr => 1);
[download]

/J\