or download this
#!/usr/bin/perl
...
Benchmark: timing 50 iterations of File::Finder module, shell-find pip
+eline...
File::Finder module: 9 wallclock secs ( 8.44 usr + 0.75 sys = 9.19
+CPU) @ 5.44/s (n=50)
shell-find pipeline: 2 wallclock secs ( 0.47 usr 0.06 sys + 0.38 cu
+sr 0.50 csys = 1.41 CPU) @ 94.34/s (n=50)