Open a pipe to mail and send to output of mailq to it.

$output = `mailq | grep frozen`;
if ($output) {
  open(MAIL, "| mail -s sstock\@essex+.ac.uk");
  print MAIL $output;
  close(MAIL);
}
[download]