How to List All Sub Directories in Perl

Sub Directory Listing

The below function to list all the sub directories in a directory is written in Perl used in many cases to get the number of sub directories

Perl Code to List Out sub Directories

local $ = "
";
while (<./*>) {
print $_ if (-d);
}