sub build_quota_list
{
   my %users;

   open QUOTA, $quotareport;
   while (<QUOTA>) {
      if (m/ \+[ \-]/) {
         my ($username, $over, $used, $soft_block, $hard_block, $junk)=split " ", $_, 6;
         $users{$username}{uname}=$username;
         $users{$username}{used}=$used;
         $users{$username}{soft_block}=$soft_block;
         $users{$username}{hard_block}=$hard_block;
      }
   }
   close QUOTA;
   return %users;
}

##</code><code>##

sub find_deletion_candidates
{
   my %users=@_;
   use User::pwent;
   foreach(keys %users) {
      my %user=$_;
      my $pw=getpwnam($user{uname});
      my $homedir=$pw->dir;
   }
   # do bunch o' stuff I haven't coded yet
   return %users;
}
%users=find_deletion_candidates(%users);