use Mail::Sendmail;
my %mail = (
            SMTP    => $SMTP_SERVER,
            To      => $EMAIL_TO,
            Cc      => 'me@my.com',
            From    => $EMAIL_FROM,
            Subject => 'testing',
	    Message => $message,
           );
sendmail(%mail) or die $Mail::Sendmail::error;