$ dig networksolutions.com mx

; <<>> DiG 9.2.4 <<>> networksolutions.com mx
;; global options:  printcmd
;; Got answer:
;; ->>HEADER<<- opcode: QUERY, status: NOERROR, id: 15900
;; flags: qr rd ra; QUERY: 1, ANSWER: 1, AUTHORITY: 3, ADDITIONAL: 4

;; QUESTION SECTION:
;networksolutions.com.          IN      MX

;; ANSWER SECTION:
networksolutions.com.   10800   IN      MX      10 mail.networksolutions.com.

[snip]

##</code><code>##

use Net::SMTP;

my $smtp = Net::SMTP->new(q('mail.networksolutions.com')) or
  die "Can't connect to SMTP server";
my $ownuser = 'me@myisp.com';

$smtp->mail($ownuser);
$smtp->to('joe@somewhereelse.net');
$smtp->data();
$smtp->datasend('Subject: Email from the server.',"\n");
$smtp->datasend('Date: ', scalar(time), "\n");
$smtp->datasend('To: ', join(', ', @emailaddrs), "\n");
$smtp->datasend('From: Packaging ' . $plat->platformID() . "<$ownaddr>\n");
$smtp->datasend('X-Mailer: Perl Net::SMTP', "\n");
$smtp->datasend("\n");

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

##</code><code>##

sub smtp_connect
{
  for my $s (@server_list) {
    my $smtp = Net::SMTP->new($s);
    return $smtp if $smtp;
  }
  undef;
}