Host      => 'https://correoweb.local.com.mx/exchange/',

Host      => 'correoweb.local.com.mx',

use strict;
use Mail::Sendmail;

# Creamos el hash con nuestro mensajes
my %mail = (
    To => 'micorrreo@hotmail.com',
    Cc =>  'miotrocorreo@,com.mx',
    From => 'sucorreo@mexico.com.mx',
    Subject => 'HOLA SOY UN EJEMPLO',
    Message => 'SOY UN EJEMPLO DE Correo ',
    Smtp => 'equipo.local.mx'  # Esto era lo que fallaba, hubo que cambiarlo
);
unless (sendmail(%mail)) {
    # Error!
    print "ERROR\n";
    exit(1);
}
# Envío correcto.
print "OK. Log says:\n", $Mail::Sendmail::log;
#print "OK\n";
#exit(1);