Hi all,
In the script below what does the mail parameter represent. What would be a
valid param.
sub email(){
my @contact;
$contact[0]={name=>'WB',email=>'[EMAIL PROTECTED]'};
$contact[1]={name=>PE,email=>'[EMAIL PROTECTED]'};
my $data;
$data ="To: Primary Contact";
print"Sending mail to: $contact[0]->{name}\n";
my $smtp=Net::SMTP->new('mailserver');
$smtp->mail('');
$smtp->to($contact[0]->{email});
$smtp->data($data);
$smtp->quit;
William Black
_________________________________________________________________
Join the world’s largest e-mail service with MSN Hotmail.
http://www.hotmail.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
