From derrick.jackson@sylvania.com

#!/usr/bin/perl -w

use Net​::SMTP;

### Host and share variables
  chomp(my($hostname) = `hostname`); # current host; only works
on NT not 95

my($smtphost) = "da_exc1.sylvania.com";

### DOES NOT WORK
my($recipients) =
q^'derrick.jackson@​sylvania.com' , 'derrick.jackson@​sylvania.com'^;
### DOES NOT WORK my($recipients) = "'derrick.jackson\@​sylvania.com',
'derrick.jackson\@​sylvania.com'";
print $recipients,"\n";

### Open a connection to the mail server
  my($smtp) = Net​::SMTP->new($smtphost,Hello=>$hostname);

#print $smtp->domain,"\n";

$smtp->mail($ENV{'USERNAME'}.'@​sylvania.com');
### THIS WORKS $smtp->to('derrick.jackson@​sylvania.com',
'derrick.jackson@​sylvania.com');
$smtp->to($recipients);

$smtp->data();
$smtp->datasend("To​: $recipients\n");
#$smtp->datasend("To​: Derrick Jackson; Derrick Jackson\n");
$smtp->datasend("Subject​: Mail Test\n\n");
$smtp->datasend("Hello world\n");
$smtp->dataend();

$smtp->quit;

From [Unknown Contact. See original ticket]

Why should it work?

Documentation says​:

  =item to ( ADDRESS [, ADDRESS [...]] )

  A synonym for C<recipient>.

Perhaps you meant @​recipients = qw^....^;

Actually, this is the wrong forum for this question. I believe
perl-libnet is the correct mailing list.

<chaim>

"JD" == Jackson, Derrick <derrick.jackson@​sylvania.com> writes​:

JD> ### DOES NOT WORK
JD> my($recipients) =
JD> q^'derrick.jackson@​sylvania.com' , 'derrick.jackson@​sylvania.com'^;
JD> ### DOES NOT WORK my($recipients) = "'derrick.jackson\@​sylvania.com',
JD> 'derrick.jackson\@​sylvania.com'";
JD> print $recipients,"\n";

--
Chaim Frenkel Nonlinear Knowledge, Inc.
chaimf@​pobox.com +1-718-236-0183