Here's the unordered list version

<!--
Usage:
    tpage --define dirp=E:\dev\loose\ab --define tld=dirtree.com dirtr
+ee2.tt2 >dirtree2.html
-->
<base href="http://[% tld %]/">

[% USE dir = Directory(dirp) %]
<ul>
<li>
<a href="http://[% tld %]/">http://[% tld %]/</a>
[% INCLUDE showdir %]
</ul>

[% BLOCK showdir -%]
[%- RETURN UNLESS dir.dirs -%]
<ul>
    [%- FOREACH item = dir.dirs -%]
<li><a href="[%- href -%]/[%- item.name -%]">[%- item.name -%]</a>

    [% newhref = "$href/" _ item.name %]
        [%- item.scan -%]
        [%- IF item.dirs -%]
        [%- INCLUDE showdir dir=item href=newhref %]
    [%- END -%]
    [%- END -%]
</ul>
[% END %]
[download]

MJD says you can't just make shit up and expect the computer to know what you mean, retardo! I run a Win32 PPM repository for perl 5.6x+5.8x. I take requests. ** The Third rule of perl club is a statement of fact: pod is sexy.