my $writer = XML::Writer->new(OUTPUT      => $fh,
                                  DATA_MODE   => 1,
                                  DATA_INDENT => 4);
    $writer->dataElement(foo  => $bar);
    $writer->end();
##</code><code>##

    not well-formed (invalid token) at line 25, column 102, byte 980 at
    /usr/local/krang/lib/i686-linux/XML/Parser/Expat.pm line 478