Select Code to Download

use XML::DOM;

...
    ##actually returns only one node
    my $simpleType_nodes=$root_node->getElementsByTagName("simpleType"
+);
    $simpleType_nodes->item(0)->createElement("length", value=>$maxlen
+gth_hash{$field_name} );