Select Code to Download

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

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

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

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

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