#!/usr/bin/perl --

use strict;
use warnings;

use File::Find::Rule;

my $dir = '//pcnamevm/c$/program files/adobe/';
$dir = 'C:/program files/Mozilla Firefox/';

my @folders = File::Find::Rule->directory->maxdepth(1)->in($dir);

use DDS;
Dump \@folders;

__END__
$ARRAY1 = [
            'C:/program files/Mozilla Firefox',
            'C:/program files/Mozilla Firefox/chrome',
            'C:/program files/Mozilla Firefox/components',
            'C:/program files/Mozilla Firefox/defaults',
            'C:/program files/Mozilla Firefox/dictionaries',
            'C:/program files/Mozilla Firefox/extensions',
            'C:/program files/Mozilla Firefox/greprefs',
            'C:/program files/Mozilla Firefox/modules',
            'C:/program files/Mozilla Firefox/plugins',
            'C:/program files/Mozilla Firefox/res',
            'C:/program files/Mozilla Firefox/searchplugins',
            'C:/program files/Mozilla Firefox/uninstall'
          ];