my $full_host_name = (gethostbyname $Host)[0];
print "full_host_name <$full_host_name>\n";
my @ok = $msg->smtpsend(
                Host       => $full_host_name,
                To           => $To,
			Debug => 1
);