use File::DosGlob;
@files = File::DosGlob::glob "c:*.*";
print "@files";