use XML::Generator;

my $gen = XML::Generator->new(
    conformance => 'strict',
    version     => '1.0',
    encoding    => 'UTF-8',
    standalone  => undef,
);

print $gen->xml( $gen->foo() );