opendir (DIR,"$dir_path");
    my @files=grep (!/^\.+$/,readdir (DIR)); # или foreach my $cur_file (readdir(DIR)){..}
    closedir (DIR);

URL:
Обсуждается: http://www.opennet.me/tips/info/28.shtml

• Как получить список файлов в директории,andy, 10:40 , 23-Апр-07
• Как получить список файлов в директории,Drew, 19:55 , 21-Янв-08
• Как получить список файлов в директории,Maxim, 08:39 , 29-Окт-08
  • Как получить список файлов в директории,omni, 15:16 , 08-Июн-10

а не проще ли использовать glob?

@a = glob('/usr/local/*');
@b = glob('/usr/local/s*');
@c = </usr/local/*>;
@d = </usr/local/s*>;

или я что-то упустил?

glob не читает скрытые файлы.

Сабж но из под Винды?

dir :D