#!/usr/bin/perl -w         
use LWP::Simple;
use HTML::TreeBuilder;
use HTML::FormatPS;
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::FormatPS->new(FontFamily => 'Helvetica', PaperSize  => 'Letter');
print $formatter->format($tree);