Re: Recursion example (Directory sizing on the side)

[Fastolfe]

This is something File::Find can do pretty easily, as well:

use File::Find;
my $total_size = 0;

find(sub { $total_size += -s }, @ARGV ? @ARGV : '.');

print "Total size: $total_size\n";