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