A quick search turns up Beatnik's Recursion example (Directory sizing on the side) which nicely leads on to Fastolfe's neat reply Re: Recursion example (Directory sizing on the side). Also the latest trend for looking through your filesystem can be found at the end of the File::Find::Rule rainbow, with something like

use List::Util 'sum';
use File::Find::Rule;

my $dirsize = sum map -s, find( file => in => shift || '.' );
[download]

HTH

_________
broquaint