#!/usr/bin/perl

use XML::DT ;

my $filename = shift;

%xml=( -html => 1,
       -outputenc => 'ISO-8859-1',
       font => sub{$c},
       meta => sub{""},
       script => sub{""},
       tbody => sub{$c},
       iframe => sub{toxml("iframe",{},$v{src});},
       img => sub{toxml("i",{},$v{alt} || "...")},
       td  => sub{%v=();toxml()},
       div  => sub{$c},
       table  => sub{%v=(border=>1);toxml()},
       'tr'  => sub{%v=();toxml()},
#       a => sub{toxml("href",{a=>$c},$v{href})},
     );

print dt($filename,%xml);