find2perl /tmp -type d

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use File::Find ();
use vars qw/*name *dir/;
*name = *File::Find::name;
*dir = *File::Find::dir;

sub wanted;

File::Find::find({wanted => \&wanted}, '/tmp');
exit;

sub wanted {
        my ($dev, $ino, $mode, $nlink, $uid, $gid);

        (($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_)) &&
        -d
        &&  print ("$name\n");
}