open DU, 'du .|' or die "Couldn't open du: $!";
while (<DU>) {
  ($blocks, $_) = split;
  s:/:'}{dirs}{':g;
  eval "\$dirs{'$_'}{blocks} = $blocks"
}
close DU;