my $dir = '/path'; # the directory to list
my $url = 'http://blah/path'; # the url for that directory

opendir DIR, $dir or dir $!;

my @links = map { qq(<a href="$url/$_">$_</a>) } readdir DIR;

use CGI qw(ul li);

print ul(li([@links]));
[download]

--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg