...
($users{uid}) = `/usr/bin/du -s0 --block-size=1048576 $uid ` =~ /^(\d*)/;
...