print  "$_ \n" if (-d $path.$_);