Select Code to Download

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

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

use XML::Twig;
my $tTwig = XML::Twig->new( pretty_print => 'indented',
...
my $tLog = XML::Twig::Elt->new( 'log', q(<pre>won't escape properly - 
+uggh!</pre>) );
$tTwig->set_root( $tLog );
$tTwig->print;