my $email = Email::MIME->create(
header_str =>[
		To  => $email_to,
		Cc => $email_cc,
		Bcc => $email_bcc,
		From => $email_from,
		Subject => $email_subject
],
body_str   =>$email_body,
attributes => {
		content_type => 'text/html',
		charset => 'utf8',
		encoding => 'quoted-printable'
}
);

##</code><code>##

try {
sendmail(
         $email,
         {
          from => $email_from,
          transport => Email::Sender::Transport::SMTP->new({host => $SMTP_HOSTNAME,port => $SMTP_PORT})
         }
        );
}
catch { print $_->message};