Help for this page
if ( -d "$dirtoget/$f" )
# dirs with full path print "$_<br>\n" for grep{ -d $_ } glob($dirtoget); ... # just the relative path print "$_<br>\n" for map{s/\Q$dirtoget\E//;$_}grep{-d $_}glob($dirtoge +t);