I always just do....

opendir(DIR, "$path") || die "Error: $!";
@entry = grep { $_ ne '.' && $_ ne '..' } readdir(DIR);
closedir(DIR);
[download]

This works on *NIX and I believe WIN32 as well, but I'm not 100% certain. -Eric