my $dir = "/anydir";
opendir DIR, $dir or die "opendir $dir : $! \n";

for ( readdir DIR ) {
    my $dirent = "$dir/$_";
    if ( -d $dirent ) {
        print "$dirent is a directory\n";
    }
}

closedir DIR;