MIME::Lite->send('smtp', $SmtpServer, Timeout=>60);
eval { $msg->send };
print $@ if $@;  ### or do_something() if $@;