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

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

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

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

Code:

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;}