if (defined($homes{$home})) {
        print "    $name shares a home dir with $homes{$home}.\n";
}
else {
        #
        # Scan the users home directory looking for
        # files owned by someone else, and checking
        # the amount of space used.
        $homes{$home} = $name;
        # Checks the total space used by a subdir, and the access time
        # of the newest file in that dir.
        $latest = $filesize = $badowner = 0;
        open(FIND, "find $home -maxdepth $MAXDEPTH -printf
                \"%p-XQC-%k-XQC-%u-XQC-%C@\n\" |") ||die "Unable to open find";