#!/usr/bin/perl

use strict;
use warnings;
use File::Find::Rule;

# find all the subdirectories of a given directory
my $directory = "..";
my @subdirs = File::Find::Rule->maxdepth( 1 )->directory->in( $directory );
    
foreach my $dir (@subdirs) {
    print "$dir \n";
}