If you mean a straight directory listing then just use opendir() in conjunction with readdir()

opendir(DH, ".") or die("ack - $!");
my @listing = readdir(DH);
closedir(DH);
print "@listing\n";

__output__

. .. foo bar baz quux
[download]

If you mean a recursive directory listing then you can probably use File::Find to suit your needs.
HTH

_________
broquaint