sub send_mail
{
        my ($rpt_name) = @_;
        (my $volume, my $directories, my $file_name) = File::Spec->splitpath($rpt_name);

        my $from = "abc\@a.com";
        my $to = "aa\@aa.com, bb\@bbbb.com";
        my @EMAIL_RECIPIENTS = split(/[,;]/, $to);
        my $DATA1;

        $smtp = Net::SMTP->new($host , Debug => 1);

        $smtp->mail($from);
        foreach $recipient (@EMAIL_RECIPIENTS)
        {
                $smtp->to($recipient);
        }

        open(DATA1, $rpt_name) || die("Could not open the file");
        my @csv = <DATA1>;
        close(DATA1);
        $smtp->recipient($to, { SkipBad => 1 });
        $smtp->data();
        $smtp->datasend("Subject: TEST MAIL \n\n @csv");
        $smtp->dataend();
        $smtp->quit;
}
exit;