##

    my $fh;
    open( $fh , "<", $arg{file}) or die;
    my $xml = XML::Simple->new(KeepRoot=>1) ;
    my $xml_data = $xml->XMLin($fh);

##

##


    my $xml = XML::Simple->new(XMLDecl=>1,KeepRoot=>1) ;
    my $xml_data = $xml->XMLout($arg{data});


##

##




  
    
      mtl_Kdiff
      False
      controls --> mtl_param[0].w 
      0.001
      
        push(bits)->::mtl_param:common:0:w
        
      
      
        1.0
        2.0
        0.0
        common
      
      true
      EA.Reflection.Float
    
    
      mtl_param
      true
      True
      IsSynthetic
      
        2
        2
        common
      
      true
      Attrib.Types.Vector4
    
    true
    
      default
      *
    
    false
    "default"
    false