sub email_report{
my $subject='Excluded checkins after lockdown mode' ;
my $mail='xxx@yyy.com';

open MAIL,">/home/mfali/Workscripts/tmpfile.html" || die $!;
print MAIL "From:zzz@vvv.com\n";
print MAIL "To: $mail\n";
print MAIL "Subject: $subject\n";
print MAIL "Mime-Version: 1.0\n";
print MAIL "Content-Type:text/html\n";
open REPORT, "/home/mfali/public_html/my_report1/out.html" || die $!;

while (<REPORT>)
{
  print MAIL $_ ;

}

close REPORT;
close MAIL;

# Send the email
  system("/usr/lib/sendmail -t -oi < /home/mfali/Workscripts/tmpfile.html");
}