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