#!/usr/bin/perl
use strict;
use warnings;
use lib "C:\\Users\\magesh\\SF\\Personal Folders\\Material master\\Material_Master_Prod\\Test";
use plmconst ':constants';
use plm_sap_material_master_constant_definitions ':constants';
use Email::Stuffer;
use Email::Sender::Transport::SMTP;
use Email::MIME            ();
use Email::MIME::Creator   ();
use Email::Sender::Simple  ();
use Email::Sender::Role::CommonSending;
use Email::Sender;
use Email::MIME::Header::AddressList;
use Throwable;
use Throwable::Error;
use StackTrace::Auto;
use IO::All;


my $msg_body .= "Hello this is test email";
Email::Stuffer
    ->html_body($msg_body)
    ->subject('Hello')
    ->from(SENDER_EMAIL)
    ->to('mzkuma@abc.com')
	->transport(Email::Sender::Transport::SMTP->new
		({
		   host => MAIL_SERVER,
		   port => MAIL_SERVER_PORT,
		}))
    ->send;