use XML::Generator;
  
my $x = XML::Generator->new('escape' => 'always',
                             'conformance' => 'strict');
print $x->foo($x->bar({baz=>3}, $x->bam()),
              $x->bar(['qux'],"Hey there,\n", "world"));

##</code><code>##

<foo><bar baz="3"><bam /></bar><qux:bar>Hey there,
world</qux:bar></foo>