The cookbook offers this:

use HTML::TreeBuilder;
use HTML::FormatText;

$html = HTML::TreeBuilder->new();
$html->parse($document);

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

$ascii = $formatter->format($html);
[download]

It assumes you have the html to be strip in the var $document.