*MIME::Lite::send_by_smtp_tls = sub {
...
}

##</code><code>##

$mail->send_by_smtp_tls();

##</code><code>##

MIME::Lite->send('smtp_tls', $mail_host, Timeout=>60);
$msg->send;