Perl script to send html file as an attachment in email | How to send cucumber report or newman html extra report as a notification after automation run with dummy email

#Author: Sadakar Pochampalli#use strict;use warnings;
useMIME::Lite;

my$to='ABCProjectTeam@email.com';
my$cc='test@email.com';
my$bcc='test2@email.com';
my$from='AutomationTeam@email.com';
my$subject="Regression Testing Results";
my$message="<p>Hi, <br>Test Project Automation Report</p> <br>Thank you <br> Testing Team";

my$msg=MIME::Lite->new(
		 From	=>$from,
                 	 To     =>$to,
 		 Cc   =>$cc,
		 Subject =>$subject,
                 Type    =>'multipart/related'
                 );
$msg->attach(
		Type =>'TEXT/html',
		Data =>$message
             );
$msg->attach(
		Type =>'image/text',
   		Path =>'/home/sadakar/AutomationProject/sadakar-logo.jpg',
                Filename =>'sadakar.jpg',
                Disposition =>'attachment'
             );
$msg->attach(
		Type =>'file',
   		Path =>'/home/sadakar/AutomationProject/RegressionTests.html',
                Filename =>'RegressionTests.html',
                Disposition =>'attachment'
             );$msg->send;
print"Email Sent\n";