in reply to perl script to print just directory names

findrule C:\Input --dir 
 
use [mod://File::Find::Rule]; my @dirs = find( directory =>in =>[ 'C:\
+Input' ]);

[download]

In Section Seekers of Perl Wisdom