Select Code to Download

# file: Mailq_Check.pl

...
close STDOUT;

exec `perl mail_report.pl mailq_check.log`;

# file: mail_report.pl

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