Input: <pre>won't escape properly - uggh!</pre>
Desired Output: &lt;pre&gt;won't escape properly - uggh!&lt;/pre&gt;

Actual Output:
&lt;pre>won't escape properly - uggh!&lt;/pre>;

or

&amp;lt;pre&gt;won't escape properly - uggh!&amp;lt;/pre&gt;

##</code><code>##

use XML::Twig;
my $tTwig = XML::Twig->new( pretty_print => 'indented',
                            output_text_filter => 'html',
                          );
$tTwig->set_xml_version( '1.0' );
$tTwig->set_output_encoding( 'utf-8' );
my $tLog = XML::Twig::Elt->new( 'log', q(<pre>won't escape properly - uggh!</pre>) );
$tTwig->set_root( $tLog );
$tTwig->print;