use File::Glob qw(bsd_glob);

my @programs = glob 'C:/Program Files';