Hi PerlMonks I am a newbie into Perl. Trying to still learn nuts and bolts here. I am supposed to put together a perl script that would read a log file(text) and then e-mail it as body of e-mail using mime/sendmail. Can one of you guide me please !. Here is a piece of code i put together,but, not working though.

#!/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("FAIL
+ED 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,SJStep
+hens@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;
[download]

I am only getting a blank line like ---------- in the body of e-mail currently. The log file contains text like:
Summary of Conflicts:
Text Conflicts:
Tree Conflicts: Blah.. blah.. blah..