# 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($dirtoget);