#!/usr/bin/perl -w

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

my $tree = HTML::TreeBuilder->new->parse_file("test.html") || die;
my $formatter = HTML::FormatText->new(leftmargin => 5, rightmargin => 50);

open (TEXT, ">result_text");
print TEXT $formatter->format($tree);
close (TEXT);

print "\nok\n";