#!/usr/bin/perl
use warnings;
use strict;

my $dir = 'C:/';
opendir my $dh, $dir or die $!;
while (my $file = readdir $dh) {
    print "$file\n" if -d "$dir/$file";
}
close $dh;