Re: Read a log file's content and send it in body of email

[tangent]

Where you say "body => @lines" there is nothing in @lines. To fix that insert at the top:

my @lines = <FH>;

However, unless your file is HTML your email will be garbled (e.g. it will not display linebreaks properly). If your file is not HTML then there is no need to use Email::MIME::CreateHTML, just use Email::Send:

use strict;
use warnings;
use Email::Send;
open(FH, "</apps/dryrun-merges/logs/dryrun-merge-report")
    or die("FAILED to open dryrun merge report: $!");
my @lines = <FH>;
close(FH);

my $message = <<'__MESSAGE__';
From: [e-mail]
To: [e-mail],[e-mail],[e-mail]
Subject: Daily Dry-Run Merge Report - Test Message

__MESSAGE__

$message .= join('',@lines);
my $sender = Email::Send->new({mailer => 'Sendmail'});
my $result = $sender->send($message);
print "$result\n";

[kkurnala]

Thank you very much Tangent, Really Appreciate your Time ! Respect for the Community !! Your suggesstion did really help me. Thanks, Krishna.