in reply to Recursion example (Directory sizing on the side)

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";

[download]

In Section Cool Uses for Perl