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

my $tree = HTML::TreeBuilder->new();
$tree->parse_file($ARGV[0]);
print $tree->as_Lisp_form;