#!/usr/bin/perl

use strict;
use File::Find;

find( sub { print "$File::Find::name \n" if -d }, '/tmp/a' );

##</code><code>##

/tmp/a
/tmp/a/b
/tmp/a/b/c
/tmp/a/b/c/e
/tmp/a/b/d
/tmp/a/b/d/g
/tmp/a/b/d/g/h
/tmp/a/b/d/g/i
/tmp/a/b/k

##</code><code>##

/tmp/a/b/c/e
/tmp/a/b/d/g/h
/tmp/a/b/d/g/i
/tmp/a/b/k