#!/usr/local/bin/perl -w require 5.004; use strict; use diagnostics; my $mailAdmin = 'nobody@fccj.org'; # Send Reports to? my $mailProject = 'nobody@fccj.org'; # Responsible for Project? my $SENDMAIL = '/usr/lib/sendmail'; # The location of your sendmail binary... $| = 1; # Use unbuffered I/O... # open (MAIL, "| $SENDMAIL -t -v") || die ("$0: Fatal Error! Cannot open sendmail: $!\n"); open (MAIL, "| $SENDMAIL $mailAdmin") || die ("$0: Fatal Error! Cannot open sendmail: $!\n"); print MAIL< HTML via SMTP?
... This sent via html2smtp perl script ...
--This_is_the_boundary_hip_ho-- EndOfMailer close (MAIL); __END__ # Physical end of the script...