I generally use XML::Simple. It takes some work to get the options correct, but once you do it will produce XML that matches the input.