Select Code to Download

sub du {
    my @files;
    my $extra = 0;
...

use Benchmark qw(:all);
timethis(1, sub {@res=du(".")});

Perl: 1.58s user, 0.46s sys
C: 0.10s user, 0.47s sys