Sorta cheated and used the quick and easy response in the end. So it's crude but don't get paid enough to doing anything more fancy for now!

--------------------------------------------------
         <FILENAME:  Mailq_Check.pl>

open(STDOUT, ">mailq_check.log");
system("mailq| grep frozen");
close STDOUT;

exec(`perl mail_report.pl mailq_check.log`);

--------------------------------------------------
         <FILENAME:  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`);}
[download]

Originally posted as a Categorized Answer.