opendir (DIR, $FirstDirToOpen) or die "Couldn't open $FirstDirToOpen: $!\n";
my @DirList = grep (!/^\.\.?$/, readdir(DIR));
closedir(DIR);