Select Code to Download

$address='one@example.com, two@example.com';

...
print $msg 'Body text here';

$msg->close();

2003-09-19 10:28:30 SMTP call from (clientname)(localhost.localdomain)
+ [IP address] dropped: too many unrecognized commands

To       => 'one@example.com, two@example.com',

$address='one@example.com, two@example.com';

...
    );

$msg-> send('smtp', "mysmtp.server.com", Timeout=>60);

use Mime::Lite;
use Text::ParseWords;
...
  {
  return quotewords("," => 0, $_[0]);
  }