Upper case tag names _are_ valid XML as long as your DTD defines than as upper case. It looks to me like XML::Generator is probably based on CGI.pm already. You can do stuff like:

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"));
[download]

which would generate

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

So the API looks very similar to CGI.pm - even down to the hash reference for attributes.

--
http://www.dave.org.uk

European Perl Conference - Sept 22/24 2000
http://www.yapc.org/Europe/