[ID 19991110.005] Net::SMTP

I am unable to send mail to multiple addresses when passing the addresses by
a variable.  But I am able to specify multiple addresses directly into the
smtp->to('address1' , 'address2').


#!/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;

• [ID 19991110.005] Net::SMTP by Jackson, Derrick
• Re: [ID 19991110.005] Net::SMTP by Chaim Frenkel