#
# Check $HOME for files not owned by any valid user
#
$homes = `echo $HOME/*`;
chomp($homes);
for $home (sort split(/ /, $homes)) {
        if (!defined($homes{$home})) {
                print "File $home is in the home dirs but not the
                       home dir for any user!\n";
        }
}