in reply to How to make this perl version of "du" faster?

don't shell out, use Cwd, or qx!du ...!

In Section Seekers of Perl Wisdom