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

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