opendir(D, "/some/directory");
my @entries = readdir(D);
closedir(D);

for my $f (@entries) {
  next if ($f eq "." or $f eq "..");
  ...
}

##</code><code>##

my @entries = glob("/some/directory/*");
...

##</code><code>##

opendir(D, "/some/dir");
my @entries = readdir(D);
closedir(D);
for my $f (@entries) {
  next unless -f "/some/dir/$f";
  ...
}