use warnings;
use strict;
use HTML::TreeBuilder 5 -weak;
use HTML::FormatText;


  my $tree = HTML::TreeBuilder->new_from_url("http://www.google.com");

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

  print $format->format($tree);