opendir(DIR, '.') or die $!;

my @dir = readdir(DIR);
closedir DIR;

foreach(@dir) {
    ...
}