<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl

use XML::DT ;

my $filename = shift;

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

print dt($filename,%xml);
   
</pre></body></html>