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]));