#!/usr/bin/perl 
use CGI qw(:standard); 
use CGI::Carp qw(fatalsToBrowser); 
 
print header; 
 
open FILE, "<", "newsletter.html" or die $!; 
my @data = <FILE>; 
 
my $owner_email="robert\@businessinnovationsmo.com"; 
my $mailprog="/usr/sbin/sendmail"; 
 
 
open (MAIL, "|$mailprog -t") || die "Can't open mail program\n"; 
 
#to start writing the email 
print MAIL "To: $owner_email\n"; 
print MAIL "Reply-To: noreply\@nonprofitinsight.com\n"; 
print MAIL "From: noreply\@nonprofitinsight.com\n"; 
print MAIL "Subject: Whatever you want, helpful for filtering\n\n"; 
 
 
 
 
 
my $message = <<MailBody; 
 
this is @data 
 
MailBody 
 
print MAIL $message; 
 
close(MAIL); 
close FILE; 
print "Message has been sent";