# Filter out "." and ".."
my @array = grep !/^\.\.?\z/, readdir(DIR);

##</code><code>##

# Filter out all "hidden" files
my @array = grep !/^\./, readdir(DIR);

##</code><code>##

opendir (DIR, "/some/path");
my @array = grep !/^\.\.\z/, readdir(DIR);
closedir (DIR);

##</code><code>##

opendir (my $dh, "/some/path");
my @array = grep !/^\.\.\z/, readdir($dh);
closedir ($dh);

##</code><code>##

opendir (my $dh, "/some/path")
    or die("opendir: $!\n");