use strict;

use HTML::FormatText;
use HTML::Parse;

my $data = do {local $/;<DATA>};
my $html = parse_html($data);

my $formatter = HTML::FormatText->new(
   leftmargin  => 0,
   rightmargin => 50,
);

my $ascii = $formatter->format($html);

print "$ascii\n";

__DATA__
<p class="fol">Here's some text that goes in the body
of the article. It has some list items like this:</p> <ul>
<li>List item one</li>
<li>List item two</li>
</ul>