require HTML::TreeBuilder;
     $tree = HTML::TreeBuilder->new->parse_file("test.html");


     require HTML::FormatText;
     $formatter = HTML::FormatText->new(leftmargin => 0, 
          rightmargin => 50);
     print $formatter->format($tree);