unless (opendir(DIR, "c:/temp")){
  die ("Error in opendir: $!\n");
}
my @files = grep { $_ !~ /^\.{1,2}$/ } readdir(DIR);
closedir(DIR);