-d is the directory file test operator, see perlman:perlfunc and search for -X

#usr/bin/perl -w
use strict;

my $root = 'c:/';
my @subdirs;
opendir DIR, $root or die "Oops $!\n";
while (my $file = readdir DIR) {
    push @subdirs, $root.$file if -d $root.$file;;
}
print "The subdirs of $root are:\n";
print "$_\n" for @subdirs;
[download]

cheers

tachyon

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