Help for this page

Select Code to Download

Select or download this

use File::Find::Rule qw( );
use File::Basename   qw( basename );
my @subdirs =
    map basename($_),
    File::Find::Rule->directory->in($hardPath);