Well, the first part is probably something like:

use File::Find;
my %blocks_by_user;
find sub {
  my @stat = lstat;
  $blocks_by_user{$stat[4]} += $stat[12];
}, "/";
[download]

Does that help get you started?

-- Randal L. Schwartz, Perl hacker