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

require HTML::FormatText;
$formatter = HTML::FormatText->new(leftmargin => 0, 
rightmargin => 50);
open FH, ">test.htm" or die $1;
print $formatter->format($tree);
close FH or die $1;