#!/usr/bin/perl

use strict;
use File::Find;

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