opendir(DIR,'/path/to/dir') || die $!;
# assuming all files or dirs contain at least one 
# word character ( ie, lose . and .. )
my @dir_list = grep /\w/, readdir(DIR);
closedir(DIR);
my @files = ();
my @dirs = ();

for (@dir_list) {
    if (-d "/path/to/dir/$_") {
        push @dirs,$_;
    }
    else {
        push @files, $_;
    }
}
[download]

cLive ;-)

ps - if you want the file sizes and other file information, you probably want to look at stat