Code to list files in a directory.
[-
$dir = opendir(DIR, '[YOUR DIRECTORY PATH HERE]');
@tmplist = readdir(DIR);
@list = grep (!/^\./, @tmplist);
-]
<ul>
[$ foreach $file (sort @list) $]
<li><a href="/drupal-4-7-2/[+ $file +]">[+ $file +]</a></li>
[$ endforeach $]
</ul>