Select Code to Download

$ dig networksolutions.com mx

...
networksolutions.com.   10800   IN      MX      10 mail.networksolutio
+ns.com.

[snip]

use Net::SMTP;

...
$smtp->datasend(@message_text);
$smtp->dataend();
$smtp->quit();

sub smtp_connect
{
...
  }
  undef;
}