#!/usr/bin/perl -w

use Text::Styler;
# use Devel::TraceMethods qw ( HTML::Parser Text::Styler::Parser );

my $styler = Text::Styler->new( { left_margin=>5, right_margin=>2, columns=>70 } );

my $html = <<OUTPUT;
<p>Little <q>help</q> and love key the i to i'll tune get me help i i.</p>
<p>Walk friends sad, you. <br />My by up the my little, a a, and my i,with <a href="http://www.foo.com/">you high</a> you're. By from whenwalk would what my help from my, by, when. Your up, be own with would is me up your you're friends does to of by and my how ears. You iflittle with out i own, worry you, of are, little, not get, i sing sadkey. Stand help get with get be what are walk my out a of song, on by would i a a. Away think think, because me not . Tune you with me asing the how i'll song sang sang on your, out, i. Little, help help and love key the i to i'll tune get me help i i, of. 
The <b>sad, you does by</b> up the my little, a.</p>
<pre>xxxx
    foo
       foo</pre>
OUTPUT

print $styler->text_style($html)."\n";