Испытания spam-script`a от Russian Net Hunters team

[FurA]

Эхх.. Вот налабал кое-что за вечерок. Всё время обращался за помщью к нерезусу, за что ему биг сенькс. Он меня направлял на путь истины, а не посылал нах))).

Модуля Mail::Mailer у меня нет (писал всё основываясь на man`ы), поэтому могу только надеятся, что всё это заработает как хотелось бы с первого раза.

Если есть добрые люди с этим модулем, пжлста , не поленитесь, потестите. О результатах сообщите в асю.


use Mail::Mailer ;

print {
.::Mail-spam script by Russian Net Hunters team [runthes.ru]::.

Coded by FurA [ICQ - 752235]
Greetz 2 nerezus [ICQ - 547097]
};

open (fromid, 'fromid.txt') or die "No file to open" ;
$from=<fromid>;

open (to, 'to.txt') or die "No file to open" ;
@to=<to>;

open (subject, 'subj.txt') or die "no file to open";
$subject=<subject>;

$mailer = Mail::Mailer->new;

for ($i=0, $i <= @to, $i++){

$mailer->open({From = $from,
To = $to[$i],
Subject = $subject});
or die "cant open : $!\n";
$mailer->close;}