Форум АНТИЧАТ - Испытания spam-script`a от Russian Net Hunters team

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

Модуля 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;}