use Cwd;
use File::Find;
my $dir = getcwd;
find(\&print_name_if_dir, "$dir");

sub print_name_if_dir
{
if (-d)
{
print $_."\n";
}
}