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

# ...

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