my $dirs2 = "C:/WINNT"; opendir $dirs2, "C:/WINNT" or die "Could not open directory: $!"; while ($_ = (readdir $dirs2)) { if (-d "$dirs2/".$_) { print "Directory: $_\n"; } }