my $root = 'c:';
my @dirs = grep { -d } glob( "$root/*" );
print "$_\n" for @dirs;
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print