while ($line = <FIND>) {
                # get a file and it's info
                #
                chomp($line);
                ($filename, $size, $owner, $date) = split("-XQC-", $line);
                if ($latest < $date) {
                        $latest = $date;
                }
                if ($name ne $owner && $badowner == 0) {
                        print "    $name has $filename owned by $owner.\n";
                        $badowner = 1;
                }
                if ($name ne $owner && $badowner == 1) {
                        print "    $name has more files not owned by $name.\n";
                        $badowner = 2;
                }
                $filesize += $size;
       }