#!/usr/bin/perl -w         
use LWP::Simple;
use HTML::TreeBuilder;
use HTML::FormatText;
use strict;

my $in = shift or die "Usage: $0 <html-file>\n";
my $tree;
if (-f $in) {
    $tree = HTML::TreeBuilder->new->parse_file($in);
} else {
    my $document = get($in);
    $tree = HTML::TreeBuilder->new->parse($document);
}

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