#!/usr/bin/perl -w
use strict;
use warnings;
use Email::MIME::CreateHTML;
use Email::Send;
my $plain_text='text/plain';
my $sampletext;
open(FH, "</apps/dryrun-merges/logs/dryrun-merge-report") || die("FAILED to open dryrun merge report: $!");
#while(<FH>){
#$sampletext = $_;
#}
#close (FH);
my $email = Email::MIME->create_html(
                header => [
                        From => 'kkurnala@wsgc.com',
                        To => 'kkurnala@wsgc.com #,wso@wsgc.com,SJStephens@wsgc.com',
                        Subject => 'Daily Dry-Run Merge Report - Test Message',
                ],
                body => @lines,
                text_body => $plain_text
        );

        my $sender = Email::Send->new({mailer => 'Sendmail'});
        #$Email::sendmail = '/usr/sbin/sendmail';
        #$sender->send($message) or die "Unable to send E-mail\n";


# $sender->mailer_args([Host => 'smtp.example.com']);
        $sender->send($email);
print "About to send the E-mail, good-Bye!\n";
exit 0;