Sindbad~EG File Manager

# Perl script to send mail to a mailing list.
# the command line should contain two filenames.  The 
# first should be a text file containing one email address per line.
# The second should contain the message body to be sent (line breaks between paragraphs only, HTML OK).
# The script should send the message to every email address in the first file.

$replyTo = "Reply_to: sales@HelpWithMath.com\n";
$subject = "Subject: MathXpert half-price offer\n";
$contentType = "Content-type: text/html\n\n";
$sendmail = "/usr/sbin/sendmail -t";
$to = "To: beeson@cruzio.com";
$from = "From: gwbush@whitehouse.gov\n";

$nargs = @ARGV;   # number of command line arguments
if($nargs != 1)
   { die ("Usage: SpoofMail.prl MessageBody\n");
   }

open(CONTENT, $ARGV[0]) or die "Cannot open $ARGV[0]";
while(<CONTENT>)
   { push(@content, $_);
   }
close(CONTENT);
   
open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!";    # opens a pipe to sendmail
print SENDMAIL $replyTo; 
print SENDMAIL $subject; 
print SENDMAIL $to;
print SENDMAIL $from;
print SENDMAIL $ContentType;
foreach $line (@content)
   { print SENDMAIL $line;
   }
# now issue a line with only a period, to make sendmail send the message.
print SENDMAIL ".\n";
close(SENDMAIL);