# file: mail_report.pl

while (<>) {
    @array = $_;
    $mail_fault_cnt++;
}

if ( $mail_fault_cnt > 0 ) {
    exec `more mailq_check.log| mail -s MailQ_Error sstock\@essex.ac.uk`;
}