use strict;
use Benchmark;
use File::Find ();

# this part is unnecessary, but find2perl made it up, so I copied it:
use vars qw/*name *dir *prune/;
*name   = *File::Find::name;
*dir    = *File::Find::dir;
*prune  = *File::Find::prune;

timethese( 10, {
    'File::Find' => \&find2perl,
    'Shell:Find' => \&shellfind,
});

my @found; # I'm not using this for anything at present

sub find2perl {
    @found = ();
    File::Find::find({wanted => \&wanted}, '.'); # made by find2perl
}

sub wanted { # made by find2perl
    my ($dev,$ino,$mode,$nlink,$uid,$gid);

    (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) && -d _
	&& push @found, $_;
}

sub shellfind {
    @found = `find . -type d`;
}

__END__
# OUTPUT:

Benchmark: timing 10 iterations of File::Find, Shell:Find...
File::Find: 27 wallclock secs (20.87 usr  4.01 sys +  0.01 cusr  0.00 csys = 24.89 CPU) @  0.40/s (n=10)
Shell:Find:  5 wallclock secs ( 0.21 usr  0.01 sys +  1.28 cusr  3.36 csys =  4.86 CPU) @ 45.45/s (n=10)

# I printed scalar(@found) in one test, and these results
# were obtained where there were over 6K directories under "."