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();