view release on metacpan or  search on metacpan

ErrorControl.pm  view on Meta::CPAN

      open(MTAHANDLE,"|$MTA_Prog")
        or die "Failed to open MTA: ". $MTA_Prog. ": $!\n";
      $mobj->print(\*MTAHANDLE);
      close(MTAHANDLE);
    }
  }
  # }}}


  # Send Headers {{{
  $r->content_type('text/html; charset=ISO-8859-1');
  $r->send_http_header;
  # }}}


  # Send Template {{{
  $r->print($tmpl->output());
  # }}}

  return;
}