in reply to
Vars with Mail::Sendmail
As you use Mail::Sendmail mroe (or Mail::Mailer which I prefer) you'll be happy to discover that it will take an arrayref in place of a single address in the To field.
I use Mail::Mailer because you can switch from a local mail server to a remote mail server to raw perl generated mail in a heartbeat. Plus I like the print handle model better. Handy.
#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
use Mail::Mailer qw(sendmail);
#use Mail::Mailer;
my $mailer = new Mail::Mailer;
#my $mailer = new Mail::Mailer "smtp", Server => "smtp.somewhere.com";
my $to = [ 'one@two.xxx', 'three@four.yyy' ];
$mailer->open( {
To => $to,
From => 'Automated Mailer <here@here.zzz>',
Subject => "Sample Mailer Script!",
"Content-Type" => "text/html",
});
print $mailer start_html,h1('Hi!),p('Yay Test!'),end_html;
$mailer->close;
--
$you = new YOU;
honk() if $you->love(perl)
