my @files = File::DosGlob("$path/*.txt");
foreach my $file (@files) {
  open( my $FH, "<", $file ) or die "Error: '$file': $!\n";
  ...
}