#!/usr/bin/perl -w

use File::Spec::Functions;
use File::Find;

find( \&wanted, '/tmp');

sub wanted {
   return unless -d $_;
   return if $_ eq curdir();

   print "$File::Find::name\n";
}