opendir(DIR, "$path") || die "Error: $!";
@entry = grep { $_ ne '.' && $_ ne '..' } readdir(DIR);
closedir(DIR);