in reply to Net::SMTP - mass mail

 my $smtp1 = Net::SMTP->new('my.mailserver.ca');

Why not...

 
my @smtp = (Net::SMTP->new('my.mailserver.ca'),...etc);

[download]

You could use then a simple for loop...

.{\('v')/}
_`(___)' __________________________

Replies are listed 'Best First'.
Re: Re: Net::SMTP - mass mail
by ozone (Friar) on May 09, 2004 at 11:58 UTC
    or even: 
    my @smtp = map { Net::SMTP->new($_) } qw/my.mailserver.ca some.other.s
+erver.com/;

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom