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

##</code><code>##

use File::DosGlob qw(glob);
my @files = glob("c:/temp/*.*");