use File::Glob 'bsd_glob';
my $path = "c:/Program Files";
# $path =~ s/ /[ ]/g; # Oh, not even required
print $_, $/ for bsd_glob("$path/*");