#
# Check for files in the mail spool directory that do not
# corespond to valid users
#
$mails = `cd $MAIL; echo *`;
chomp($mails);
for $mail (sort split(/ /, $mails)) {
        if (!defined($users{$mail})) {
                print "File $MAIL/$mail is in the mail spool directory
                       but not associated with a valid user!\n";
        }
}